


~ 
>| 2 


eet SSE 


f 
* 





Giant Book of Games for Your 


Dragon 


Tim Hartnell 
Alan Blackman 
Roger Bush 
Robert Young 


GIANT BOOK OF 


~ GAMES FOR 
YOUR DRAGON 


Fontana Paperbacks 


First published in 1984 by Fontana Paperbacks, 
8 Grafton Street, London W1X aLA 


Copyright© Tim Hartnell, Alan Blackman 
Roger Bush and Robert Young 1984 


‘Made and printedin Great Britain by 
Hazell, Watson and Viney Limited, 
Member of the BBCC Group, Aylesbury, Bucks 


Conditions of Sale 

This bookis sold subject to the condition 

thatit shall not, by way of trade or otherwise, 

be lent, re-sold, hired out or otherwise circulated 
without the pu blisher’s prior consent inanyform of 
binding or cover other than that in which it is 
published and without a similar condition 
including this condition bemg imposed 

onthe subsequent purchaser. 


To Dianne and all the family, 
for their wholehearted support 


Contents 


Introduction 


Arcade Games 
Crazy Highway 13 
Pro Golf 21 
Escape 32 

Dog Catcher 38 
MazeRunner 41 
Paper Chase 47 
Meteor 51 


Adventure Games 
Vadrand’s Treasure 59 
Cavern of the 

Shadow Thieves 69 
Valley ofthe Undead 77 


Just for Fun 
Gridiron 85 
MiniGoif 93 
Fireman 101 
Snap 105 
Biorhythms 109 
Nine Frogs 115 


Simulations 

Doge of Venice 123 
Gold Rush 139 
Farmer Jack 144 
Avalanche 159 


Gambling Games 

Multipack Twenty-one 165 

Dragon Dice (Chemin de Fer, Shark, Seven times 
Seven) 173 

Malibu 191 


Brain Games 

Followthe Leader 201 
Idaho Squares 204 
Pentominos 211 

Wizard of Wall Street 218 
Concentration 226 


APPENDICES 
How to create moving graphics 245 
Games toconvert 249 
Errortrapping 255 


GLOSSARY 26] 


Introduction 


In this collection of games for the Dragon 32, we have tried 
to cater for as many different tastes as possible. We have 
chosen games of all types: arcade-style games, dice games, 
card games, games which use the high resolution graphics to 
great effect, simulation games, and even several adventure 
games. All the games in this book have been designed to 
provide maximum interest and excitement. We have included 
instructions and hints for playing each game, and, where 
appropriate, notes explaining the construction of the 
program. 

No computer program, especially a game program, is ever 
truly finished. There is always some fine tuning or highlights 
which can be added. We present these games to you not as a 
finished product but as a starting point for your own ideas. 
Please feet free to adapt them to your own use. Add your 
own personal touches to them, more sound or graphic dis- 
plays, whatever takes your fancy. Most important of ail, 
make sure you enjoy playing them. 


Tim Hartnell! 
Alan Blackman 

Roger Bush 
Robert Young 
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Crazy Highway 


Crazy Highway is an action game which makes good use of the 
high resolution graphics of your computer. 

You play the part of a curious cat who is trying to cross a 
super highway. The highway is shown in red on the screen and 
the cat is displayed as an “H” shape. Whizzing up and down 
the highway are a number of green cars. Each time you are hit 
by a car you lose one of your nine lives. The game finishes 
when you have lost all nine lives or if you successfully cross the 
road twenty times. Once you start across the road you cannot 
turn back, you can only pause to let a car go past. You cannot 
go back the other way until you have reached the other side of 
the highway. 

The game begins with only one car on the highway, then 
each time you are run over another car appears. A word of 
warning: watch out for stalled cars. 

The game has two versions. The first is a keyboard version. 
The “A” key moves your cat to the left and the “L” key moves 
him to the right. 

The second version is for joystick control. The joystick 
should be plugged into the right joystick port. 


1 REM KEYBOARD VERSION 

J@ REM CRAZY HIGHWAY 

24 PMODE 3,1:CLS:PCLSa 

34 GOSUB 672 

4@ GOSUB 240:G0SUB 324:REM STORE CHARACT 
ERS 

5@ PUT (4;@)-(15,15),BL,PSET 

64 SCREEN 1,0:WP=8:FOR J=1 TO 1@:FL=) 
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7@ GOSLUB 36G-REM MOVE CAT 

84 GOSUB 44@:REM MOVE VEHICLE 

3@ 3Ff WPxFL>24@ OR CWRP<S AND FL=-1) THEN 
1@@ ELSE 7a 

148 2=Z+1 

11@ IF FL=1 THEN FL=-1:GOTO 7a 

12@ IF 1>3 THEN G=IJNTCIZ2I+1 

13@ NEXT I 

14@ CLS:GOTO 164 

15@ CLS:PRINT:PRINT" YOU HAVE LOST YOUR N 

INE LIVES99" :PRINT -PRINT 

16@ PRINT:PRINT:PRINT*PRINT-PRINT" YOU 

HAVE BEEN HIT" 3X%x3"TIMES22" sPRINT:PRINT" 
YOU HAVE CROSSED THE ROAD" ;2:PRINT TAB 

(12) "TIMESgs" 

170 PRINT:PRINT?PRINT “DO YOU WISH TO PL 

AY AGAIN? CY/NI" 

18@ AS=INKE Y¢ 

t9@ IF Ag="“ THEN 1824 

20a IF As="T" THEN RUN 

210 IF A%="N" THEN CLS :PRINT@ 235, “GOOD 

BYE": GOTO 234 

226 GOTO 184 

234 GOTO 234 

244 COLOR 2.4:DIM WACZ2):01IM BLC(7J:0IM BW 

€2):01M HECS):Q=] 

254 O1M SItg9j],cmc(ga) 

264 ORAW “BN, 2;B5U3R7U206" 

278 GETC@,41-¢€7,73,WA,G 

284 GETC24,20)-(35,35),BL;,G 

294 GETC24, 20)~€27;27),BU,G 

3048 PUTCG,G)~(7,7),BW 

31@ RETURN 


Crazy Highway 15 
320 COLOR 3,@:DIM CALA) 
33@ DRAW" BMN4 ,@j;G2D1 GF 2R4ES8H3L4 38M3,2;0 
3RAlI3LE 5 BN3, 18 s3RAUBLA" ->PAINT(7,7),1,1: 


PAINT(?; 19,1) 1 :PAINTC?;14),1,1 
34@ GET(@,@)~C15,15),CA.G 
35@ RETURN 


36@ AS=INKETS 

37@ IF PPOINTCWP-4,88)=1 OR PPOINTCWP-4, 
1@2)=1 OR PPOINTCWPt4;952)=1 OR PPOINTCWP 
+4,1@2)=1 THEN PP=1] :G=0+):1F O=1@ THEN O 
=3 

3€8Q PLITCWP,523-CWPt+7,99),BW 

390 IF Ag="I" AND FL=1 OR AS="A" AND FL= 
-1 THEN WPSWPtFL X16 

400 PUTCWR, 92)-CWPt?, 99)9,WA 

41@ IF PP=1 THEN GOSUB Sa@ 

428 PP=0 

430 RETURN 

44@ FOR K=] TO Q 

450 IF HEC(K)=@ THEN GOSUB 520 

460 PUTCHECKI,SICKII-CHECKI+15;,SI(KIJ+15) 
+BL,OR 

470 SICKI=ASICKI-CNCKILZO 

48@ IFSICK)<26 AND CMCKI=1 OR SICKI>170 

AND ChCKJ=-1 THEN HECKI=@:PLAT" T2@Q03AAD 
CBCOFG" :GOTO sae 

49@ PLITCHECKI,SICKII-CHECKI+15;SICKI +15) 
+ CA, PSET 

5@@ NEXT 

51@ RETURN 

52@ SICKJ=RNO(2)~-1 

53@ CMCKIAZKCSICKI-. SIREN CAR MOUVEMENT 

54@ SICKI=16@0XSI1(K) +20 
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55@ HECKIJ=ABSCWP-75+RNOC1540)) 

S6@ IF HECK)>24@ THEN HECK)=48@-HEEK) 
57a RETURN 

58@ K=RNOCS)*HECK} =O: J=23XX=KM+) PLAY "'T 
1@GU3G03GGADFGEGG" 

59@ IF Xx¥=G THEN 1!5@ 

644 FORD=1T0O2¢ 

61@ PLAY"OSBOI0" 

62@ IF D=S THEN PLAY" T1@@0FGEO" 

63@ NEXT:FOR D=1 TO 30@:NEXT 

644 PLAY"@3c" 

65@ PCLsa 

664 RETURN 

674 CLS 

684 PRINT@ 128, TABC1G) “crazy highuay” 
694 SCREEN @,} 

740 FOR OD=t TO 14@@6:NEXT OO 

71@ FOR TT=1 305 

228 PLAY "T25G04EEEDNDCGFABBEDF" 

730 NEXT TT 

744 PRINT@ 192, " YOU MUST CROSS THE ROA 
QO TWENTY" 

250 PRINT@ 256, TABC14) "TIMES" 

76@ SCREEN @,1 

770 FOR OO=1 TO 35@@:NEXT ON 

780 PRINT@ 352; TABLS) “geod tuck pussyea 
apoe 

798 SCREEN @,i 

8aa FOR ON=1 fO 14@@@:NEXT OD 

814 PLAY "TS8U3802L 1GGAAAFFFGGGAAAFFFGGG 
GG" 

824 RETURN 
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l REM JOYSTICK VERSION USE RIGHT JOYSTIC 
K 
1@ REM CRAZY HIGHWAY 
26 PMODE 3:1:CiLs:PCLSO 
36 GOSUB 674 
40 GOSUB 240:GOSUB 37@:REM STORE CHARACT 
ERS 
5@ PUT (@,0)-(15,15),BL)PSET 
6@ SCREEN 1;@:WP=8:FOR J=1 TO 10:FL=1 
76 GOSUB 366:REM MOVE CAT 
86 GOSUB 446:REM MOVE VEHICLE 
396 IF WPXFL>246 OR CWP<9 AND FL=-1) THEN 

166 ELSE 76 
100 2=Z+] 
116 IF FL=1 THEN FL=-]-GOTO 76 
126 IF §>3 THEN Q#INTCI42)+1 
13@ NEXT I 
14% CLS:GOTO 16¢@ 
156 CLS:PRINT:PRINT"YQU HAVE LOST YOUR N 
INE LIVES?2":PRINT?PRINT 
16@ PRINT?PRINT?PRINT?PRINT:PRINT" YOU 
HAVE BEEN HIT” 3&3 "TIMESE2" :PRINT:PRINT" 

YOU HAYE CROSSED THE ROAD" ;22PRINT TAB 
Ci2) “TIMEsS?e" 
17@ PRINT:PRINT*PRINT "DO YOU WISH TO PL 
AY AGAIN? CT/N)" 
186 AS$=INKETS 
196 IF As="" THEN 180 
200 IF AS="¥" THEN RUN 
210 IF AS="N" FHEN CLS‘PRINT@ 235; “GOOD 
BYE" :GOTO 2360 
2206 GOTO 184 
230 GOTO 234 
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244 COLOR 2,4:01M WAC2):D1M BLC7):01M BW 
(2):DIM HEC39):G=1 

254 DIM SIC3), cng) 

264 ORAW "BN, 2 ;05U3R7U2D6" 

274 GETC@,;@)]-€7;7),uA,G 

284 GETC24,24)~-(€35,35),B8L;G 

298 GETC24;,203-£27;273,BW5G 

344 PUTCA;G)-(7,73,BW 

314 RETURN 

32@ COLOR 1,4:D01M CACZ) 

33@ DRAW" Bi14, 4 ;G201] BFZR4E 3U8H3L 4 5 8M3, 250 
3R8U3L8 58M3, 1G3CGRAUSL8" :PAINTC?Z;7),15,1: 
PAINTC7,139,1,12:PAINT(?514)5151 

34@ GETC@,4)~C15,15),CAs6 

354 RETURN 

364 A=63-JOYSTK(G) 

370 IF PPOINTCWR-4,88J=1 OR PPOINTCWP-4, 
14@21=1 OR PPOINTCWPR +4, 923=1 OR PPOINTCUP 
+4,1@2J=1 THEN FR=1:0=O0+1:I1F Q=1@ THEN 0 
29 

3806 PLUTCWP,927)~CWPt+?; 99), BH 

390 IF AC2Ge#FL OR CA>43 AND FL=-1) THEN 
WP=WP +FL X36 

404 PUTCWP, 32)-CWPr?, 99),WA 

41@ IF PP=1 TREN GGSUB 58a 

428 PP=G 

434 RETURN 

444 FOR K=1 TO 8 

45@ fF HECKI]=@ THEN GOSUB 524 

46@ PUTCHECK), SICK} IJ-CHECKJ+15,S1CK3+15) 
»Bl,OR 

470 SIEKI=SICKI-CMCKI*2E 


480 
ANG 


Crazy Highway 19 
IFSICKJ<26 AND CMCKI=1 gr SICKI>174 
CM(KJ=-i THEN HECK)=@:PLAY"T2@G03AAG 


CBCOFG" :-GOTO 520 


490 


PUTCHECK), SECKJ I~CHECKI+15,S1CKI+15) 


»CA; PSET 


34a 
314 
5208 
534 
5448 
5548 
568 
3/8 
58a 


NEXT 
RETURN 

SI CKI-RNOC23~1 
CMCKI=2*kCSICKI-.5)-REM CAR MOUVEMENT 
SJ]CKIJ=16GXS]¢KI+20 

HE (K=ABSCHE~75+RNOL150)) 

IF HECK)>24@ THEN HE(K)=48G-HECK] 
RETURN 

K=RNOUS) :HE CK I=@2J=2:xX=XX4l PLAY "T 


1 @GU3G03GG6 AGFGEGG “ 


59a 
64a 
614 
624 
634 
644 
634 
664 
674 
684 
634 
74a 


IF X*=G THEN 1528 
FORO=1T020 

PLAY" OSBOIN" 

7F O=S THEN PLAY" T1OGOFGEG" 
NEXT :FOR O=1] TO 34@:NEXT 
PLAY" @3Cc" 

PCLSA 

RETURN 

CLS 

PRINT@ 128, TABC1G)] "crazy highway” 
SCREEN @, 1 

FOR DG-i TO 14@@@:NEXT OD 


71@ FOR TT=] TO 5S 

728 PLAY “T25G04EEEGOCGFABBEOGF” 

734 NEXT TT 

744 PRINTS 192; “ YOU MUST CROSS THE ROA 
0 TWENTY" 

754 PRINT@ 256, TABCI4] "TIMES" 
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76@ SCREEN @G,1 

??@ FOR OD=1 TO 5@@:NExXT OD 

78@ PRINT@ 252, TABC3) "goodluck pussyca 
4 Oo" 

7398 SCREEN @;1! 

Baa FOR OO=1 TO )@@a:NEXT DO 

814 PLAY "TS@U3G02L 1 BBAAAF FFGGGAAAF FF GGG 
GG? 

82@ RETURN 


Pro Golf 


This program makes very good use of the Dragon’s high 
resolution graphics facilities to draw a fairway complete with 
trees, a water hazard and several bunkers. 

The fairway is a dogleg to the right, and you can either play 
it safe and hit down the fairway, or, if you are confident of 
your golfing skills, you can take the direct line over the trees 
and along the water hazard. 

The computer will tell you which way the wind is blowing 
and how strong itis. North is to the top of the screen, south is 
at the bottom, east is to the right and west is to the left. 

After you have studied the fairway and the layout of the 
various obstacles it is time to tee off. To change from the 
graphics screen to the text screen, just press any key. You will 
then be asked in which direction you wish to hit the ball. This 
direction is entered as a compass bearing anywhere from zero 
to 360 degrees. Just to make the game a little bit harder, we 
have put zero degrees to the left of the screen. This makes 90 
degrees straight down, 180 degrees to the left, and straight up 
the screen is 270 degrees. 

After you have selected the direction, the computer will ask 
you which club you are going to use. Club number one is your 
driver and club number ten would be used for a 
short-approach shot. 

Next you will be asked how hard you want to hit the ball: 
hard, medium or soft. After you have answered this question, 
the ball will speed off towards the tee — provided you haven’t 
hooked, sliced or mis-hit the ball, of course! 

When you have reached the green the computer will tell you 
which way the green slopes and will then give you the chance 
to putt out the hole. To change from the graphics screen to the 
text screen, once again press any key. 
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You will be asked which direction you want to hit the ball. 
This is entered as a compass direction in exactly the same way 
as your tee shot. You select how hard you wish to hit the ball 
and then sit back and watch the result. Putting is very difficult 
on the computer course and it will take a lot of practice before 
you become an expert. 


128 REM PRO GOLF 

28 PCLEAR4 

38 GOSUB 2318 

42 GOSUB 168 

58 GOSUB 2308 

68 GOSUB 350 

70 FOR J=1 TO }:*CJI=60:Y0 J J=1270 *NEXT 

80 FOR J=1 TO 3:IF GCJJ=1 THEN IFJ<I THE 
N 128 ELSE 8 

92 GOSUB 560:CLS:GOSUB 628 

182 GOSUB 860:IF Gel THEN 138 

110 PSETCXCJI,7(4),PSCJ)) 

122 NEXT-IF G<I THEN 88 

130 FOR J=l TG [ -GOSUB 1440:NEXT 

148 GOTO 2018 

152 GOTO 152 

168 DIM TRCIB) 

178 CLS :PRINT®264;"A HOLE OF GOLF" 

182 PRINT:PRINT"HOW MANY PEOPLE ARE PLAT 
ING" j= INPUT I 

192 DIM XC€1),7¢C1),SHC1),KC1),IJ01),6C1),8 
uct) 

220 SCREEN 2,1} 

212 FOR K=1 TO 6:PLAT' OL TLOBGGEGAAAFF” =N 
EXT 
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220 RETURN 

230 PMOOE3, 1 

240 CLS 

258 AS="S6BNIG, 49; UBDSEZOZEZG2R2G2R3L3F 
2L2F 2H202H Z2D31I3G2U2G2E ZL 2E ZL 3R 3H ZR 2H2F 2U 
2F2" 

260 DRAW At 

278 PAINTC9G;,4923; 454 

280 LINEC9@, 46)-C4@, 55), PSET?LINEC36,553 
~(45,55),PSET 

290 GETC30,36)~£499,55);71RG 

300 CLS 

3iG@ RETURN 

320 GOSUB 2080 :RE TURN 

330 X$=] NKETS$: JFX$=""THEN 330 

340 RETURN 

35@ FOR K=1 10 30 

360 SCREEN 1,0 

378 REAQ X,Y 

BBQ PUTCX, YI]~(X+19,7+19), TRLOR 

3390 NEXT 

980 OATA G,@,10,10,@,; 10, 20;,5,0;30,5,68,4 
2 150,20; 170,150, 175,232,0;210,5;220;20;2 
G8, 498,210, 32, 230, 50, 228, 8G, 95,68, 100,75, 
110,80, 100,90, 20, 100, 8@,140,110,0,120,55 
2148, )00 

910 DATA 180, 100, 159,130,200, 170,154,110 
285, 170 

920 COLOR 3,3 

9430 ORAW"BM180, 60; R4F 2R4F 2R4F204F 3026202 
L303G65L3H 21 4H3U4L 463U2G62U31 36 4. 3G3U4E 2U3 
R4E4R2ZG3E 4L 24 4R SE 4i3E SF 202" 

9440 PAINTC185, 80],3,3 
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456 ORAW" BMG, 145 jR4E3RSEZR SE 4R SF ZR4F BRIE 
ZRSEZF3R4E4U3E4R 4F 402F SRIF ARSEIR4AESU4E 4U 
4H4U3E SR4E4" 

466 ORAW"BMG, 149 ;RSEZRSEZRSE4R3F ZR4F SR4IE 
2R3EZF3RGE FUSE 4R 1F SO2F 4R4F 4IRGEFR4AESU4E SL 
SH4LIZESRZE2" 

426 PAINTCI3S,130),3,3 

486 COLOR 2,1 

496 DRAW"BM4a, 26 3R4F 40263L4G62R 1 G3D2F 3026 
Z2LBHBU4HZUBEFUZES4" :PAINT(463253,2,2 

566 ORAW"BM18S, @3RSF IR3F2R2F JOZF2G2L 26). 
IMLUIMZL3U 1B IL2E2U2L2L 36 4L 2G2L2H3UZE 3R2H 
TE4R13"2PAINTC185,49),2,2 

516 COLOR 2,6 

526 LINEC181, 34)-()]82, 24), PRESET -LINECI8 
1,2491-C184, 263 ,PRESET 

536 LINEC76;176)-(79,173), PRESET; BF 2L INE 
£42, 176)-(45, 173), PRESE1, BF 

546 SCREEN 1,4 

556 RETURN 

566 PSETCXO(I),YOCJI,PSC(3I3) 

576 PSCJJ=PPOINTCXCI), (439) 

586 PSETCX(J), 704,27: 

536 XO(JIJ=XCJ)2¥OCII=TCI) 

666 PLAY"O3T1@8C0A" 

616 RETURN 

626 PRINT@32," TRE WING [S BLOWING FRO 
M THE "§ 

636 PRINT@1G, "PLAYER NO. "3d 

646 IF FL>@ THEN FH=17AW=FL:GOTO 676 
656 AW=RNO(8) 

666 FL=AW 
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67@ ON AW GOTO 684,694, 744,714, 724; 734,7 
44, 758 

684 AWS="NORTH EAST” :GOTO 764 

69@ AWS="EAST" :GOTO 764 

74@ AWS="SOUTH EAST" :GOTO 764 

71@ AWS="SOUTH" :GOTO 764 

72@ AWS="SONTH WEST" :GOTO 764 

73@ AWS="WEST" :GOTO 764 

744 AWS="NORTH WEST” :GOTO 764 

738 AW$="NORTH" -GOTO 768 

76@ AW=C(3. 1419774) *CAW-6) 

774 PRINT@657, AWS ; 

78@ IF FH=1 THEN WS-WW:GOTO 84a 

794 WS=RNOC3) -WW=WS 

@@@ ON WS GOTO £34,820,814 

@1@ WSt="STRONG”:GOTO 844 

@2¢@ WSt="NEDIUN" -GOTO 844 

83a WSt="LIGHy" 

844 PRINT" ASG [S “jWS$:WS=7kWS2FH=E 

@S@ RETURN 

@6@ GOSUB 2474:GOSUP 2144:PRINT@128, "WHA 
T DIRECTION YO TOW WISH TO HIT THE BAL 
LIN (@36@0EGREESI" 3: INPUT ASZAS=ASK3. | 
4148/7184 

874 SH(JI=SHCJ3+1 :GOSUB 2144 

884 PRINT@2Z24;, "WHICH CLUB OO YOU WISH TO 
USE? €1-14)"3:INPUTCC:CC#INTCCC) :TFCC< 
1 OR CO>14@ THEN 884 

694 PRINT@294@, "D0 YOU WiSH TO $4fT THE BA 

Ck HAROCHI,MEQLUMCi13 OR SOFTCS)?” 
944 [INPUT Ps 

914 IF Ht="R“ THEN S=],1:GOTO 954 

326 IF Ht="f1* THEN S=.8:GOTO 954 
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93a IF H#="S" THEN 5=.6:GOTO 35a 

44@ GOTO 9aa 

§5@ IFRNOC3J=1 THEN HO=RNOC21]+11 ELSE H 
O=-a 

96@ IF RNOCISJ=) THEN HO=CRNOC3)-2)x30 
97a IF RNO€2@)=]1 THEN S=,2:AS=AStCRNOC3) 
—-2)*40k3.1414987]8a:hs="DUFFED" :GoTd 1laga 
S8@ AS=AStHOKS. 141498718G:1FHO=a@ THEN 141 
a 

994 IF HO<@ THEN H$="HOOKEN" ELSEH$="SL1 
ceo" 

J@00 PRINT@ 416,"YOU RAYE "5Ht;" THE BAL 
L” :GOSUB 208d 

343@ D=SxkCi11G-14xC0)+OxRNOC20I)410a 

1426 *O=NxCOSl(ASI:¥D=OxSINCASI 

1G@30 WA=WSKCOSCAW) :WE=WSxASINC AW) 

104@ R=.a@2xDx£11-CC) 

3@5@ IF BUCJJ=1 THEN GOSUB 2294 

1@6@ IF xO=@ THEN t270 

1070 O0-a:FOR LC=l TO 20 

1080 IF LO>]1 THEN GOSUB 2114 

3090 PX=INTCLOXKXO/20) 

3100 PY=INTELEKYO/2¢0) 

3114 IF 0430 THEN O34 

4120 WX=INTCC OSG) 4LCAWA/2 008) 

3134 WY=INTCCO-30) xLOXWB’ 2400) 

114@ XX=LO:H=(3xC0+201%, G1 kSkXXKC20-XX) 
315@ IFRNOC3@)=1 THEN WG=WGtRNOC 2) 

3160 GX=INTELOANGKOOSCAWI 754) 

317@ GY=INTCLEXWGASINCAWI/5@) 

1180 TX=PX+WX+ GX 

1190 TY=PY+W7+GY 
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1206 X(J3=XCJI+TX-OX:IFXCJI9255 DOR xXCJI1¢ 
1 THEN GOSUB 285@ 
1216 Y€JJ=¥CJI+TY-OY LI FYCJ39191 OR YoI)< 
1 THEN GOSUB 2656 
1226 SCREEN 1,6:GOSUB 566 
1236 OX=TX-OY-17F 
1296 SF LC=20 Tekin GX=O:9Y=G 
1256 NEXT:GOSUB {296 
1266 IF X€J3>161 AND XCJ3¢2@1 AND YCI95) 
4 AND Y€J3<54 TrEN GOSUB 1416 
1276 GOSUB 209%:5E1LIRN 
1288 AS=INKEY#:1F AS-"“THEN ]28@ ELSE RE 
TURN 
1296 JF QO=)] THEN RETi!IRN 
1366 FOR RC=)] TL 16 
1316 GOSUB 2153 
1326 RX=INTCROXR*XCOSTASI/1@) 
13360 RY=INT{RCKRXS INCLASIZ 36) 
1346 XC3}=XCJI+RX-AX:YCIIJ=VCII*¢RY-AY 
1356 JF XC€J1>255 OR XCJI<1 THEN GOSUB 26 
5G 
1366 [F Y£J3>1391 OR YCJI<1 THEN GOSUB 26 
36 
1376 GOSUB S6B :AX=RX:AY=RY 
1386 JF RC=1@ THEN AX=8:fY=O 
1336 PLAY’O3TS@GFDCEAR" 
1486 NEXT ?RETURN 
1446 G=Gti :GtJjJ=1 
1426 PLAY" O3T S@GFOBCLA" 
1436 J(J)]=256*CXCJ 3-161) 798 KCI I= ISZKCYC 
J3-14174948 :RETURN 
1446 PROBE 1,2:&CLS 
1456 PSETCICIV, KOJI, 272803 0J1 :BO=KCII 


28 
1468 
1478 
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LINE(1 28, 96)-(128,563,PSET 
LINE-(€142, 68)sFSET “CINE-C128,64)>PS 


ET :PAINT£136;68),434 


1483 
14358 
1588 
1518 
1528 


1538 
1548 
1558 
1568 


GOSUB 1528 

GG=G:GOSUS 175G:[F GG=1 THEN RETURN 
GOTO 1488 

RETURN 

CLS?PRINT@35,"1KhE GREEN SLOPES IN B 


a 

PRINT@1@, "PLAYER NO. “GJ 

IF FG>@ THEN F)=1:AL=FG:GOTO 1568 
AL=RND(8) 26 G=R 

ON AL GOTO 1578, 1586, 1598; 1689,16198 


11628; 1638; 1648 


1578 
158g 
1538 
1688 
1618 
1623 
163 
1648 
1658 
1668 
1678 
1683 
1638 
1788 
1718 
1728 
1738 


B*SS+ 


1748 


ASS-"NOR]H EQ@STERLY":GOTO 1653 
AS$="EASTERLY" :GOTO 165 
AS$="SOUTH EMSTERLY":GOTO 1658 
AS$="SOUTHERLY":GOTO 1653 
AS$="SOLTH WESTERLY" :GOTO 1658 
AS$="WESTERLY" :GOTO 365g 
AS$="NORTH WESTERLY" :GOTO 1653 
AS$=" NORTHERLT" 

AL=(3, 1414774) XCAL-2) 
PRINT@67,A5%3;" OLRECTION" 

IF Fl=l THEN SS=ST:GOTO 1698 
SS=RNDC3) :ST=SS 

ON SS GOTS 1788,1718,1728 
5$5$="SLIGHT":G0TO 1732 
SS$="MEDIUM" :GOTO 1738 





‘SS$="STEEP™ 


PRINT@SS, “GREEN SLOPE 15 “3S5$:SS=2 
Fi=8 
RETURN 


1756 
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GOSUB 22882:GOSUB 21@G:PRINT#1]2é8,; "WH 


AT DIRECTION OO YOU WISH 10 HIT THE BA 
LL (6-366 DEGREESIJ", ?1NPUT AP -AP=APXS. 14 
1477188 


1766 
1776 


SH(JJ=SH(JJ+1:G0SUB 2166 
PRINT@2Z24, "HOW HARD OO YOU WISH TO 


HIT THE GALL (1-2@)" 3: INPUT HP?HP=7%LHE+ 
INTCRNOCHE4Z3 3) 


17386 
1736 


AD=HPXCOS CAP] 2 YO=HPXS INDAP I 
SA=HPXSSXCOSCAL J/ 1662 S6=HPXSSXSINCA 


L1/186 


1866 
1816 
1826 
1836 
1846 
1856 
1866 


1876 


1886 
1896 
1966 
1916 
1326 
1936 
1946 
1956 
1966 


FOR LC=1 TC 2A 

OX=]NTCLOXXO/26) :-DY={NT(LCXYO/26) 
SX=INT(LOXSAS26) :-ST={NTCLOXSB/26) 
TJ=0X+SX 2 TK=DTIASY 
J(JJ=J0J3+TJ-OA2KCJ)=« (J]+TK-08 

IF J(€J35255 THEN J{J3=256 

[F JCJ1¢1 THEN J(J3=] 

IF K(JJ>191 THEN K(JJ=19) 

JF KCJ1<] INEN KCJIJ=) 

GOSUE 1926 

OA=TJ :OB=1K:]F iLC=26 THEN 08-6 -:0ASG 
NEXT cRETURN 

SCREEN },@:PSETCAO; BO; 1] 

PSET (I (II5K049,23 

AD=J{( 1) :B0=K(J) 

PLAY" 527 46F GF" 

IF J€332126 ANG J0J1¢13@ AND K(JI>9 


4 AND K{J1<98 THEN GOSLB i986 


1976 
1986 


RETURN 
FOR K=] TO 26 STEP 2 


1996 PLAT “O37 1] @BAACOCGFEE " > SOUNDIZ2XK , 26/ 


K 
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2080 NEXT :LC=24:66=] :-RETIRN 

2616 CLS:FOR J=1 TO E-PRINT"PLATER NO.“3 
J3° TOOK" ;SH(J 33° STROKES" -NEXT 

2826 PRINT:PRINT"DON YOU WISH TO PLAY AGA 
InN?“ 

2036 AS=([NKEYS:21F AS=""“THEN 2@3GELSE IF 
As="7" THEN RUN 

2646 END 

2@S@ CLS:PRINT@i9Z,"YGU HAVE HIT THE BAL 
L QUT OF BOUNLIS8S22 START THE HOLE A 
GAIN AND LOSE THD STGKES“:GOSUB 2074 
2066 RC-IG:00=] :SHCJI3=2°LC=26: %C J) =66:7L 
JJ=J2@:KE TURN 

2070 FGR K=]1 TO S@@:NEXT 

2086 +GR K=]1 TS S@@:NEXT 

2086 FGR K=] TO 5S@@:NEXT:-RETURN 

2106 SCREEN 1,@;:G0SUB 128@-:SCREEN @, 1:RE 
TURN 

2126 IF PSCJ3=4 AND $416 THEN 212@ ELSE 
RETURN 

2126 CLS -PRINT@ 738, “CLUNK" -FLAY“O4T S@AQDRC 
GOEEDCAEC" 

2130 AS=RNDC368x3. 141487186) 

2146 XO=DxC1-LC+ 20) 400S(ASI 22 

2156 YO=Dk{)] -.. C720) KSINCRS372 

2166 OX=6:07T=0 

2176 GOSUB 2636:RE URN 

2186 IF PS€JJ=3 THEN 2216 

2196 [F PSCJJ=2 THEN 2276 

2266 RETURN 

2216 CLS:PRINT@236, "SFLOCSH" :PLAY"O1] T2084 
O2T 4GBCOST SBDEFC 4G" -GOSUB 2636 

2226 RC=16:AN=AS+3. 14148 


2230 
2240 
2250 
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XCJIJ=X(JI+COSCANI 
¥CIJISTCIItS INCAMI 
IF PPOINTEX£II, 90433493 THEN 2260 £ 


LSE 2230 

2260 SH(JI=SH{J3+1:GOSUB 2080::PRINT:PRI 
NT“ YO MUST TAKE A DROP AND LOSE A STROK 
E"’:GOSUB 288@:GCSUB S&0:KE TURN 


2270 


CLS :PRINT@237, "PLOP" :PLAY“O2ZTSFBO]T 


ZFCA":GOSUB 209% 


2280 
2290 


RC=1@:8U(J J=} :RETURN 
BUCJI=@:1IFRNDC3I=] THENXD=, 34XD : 1D= 


+ STG IRETURN 


2300 CLS:PRINT@Z225,"THE SALL HAS ROLLED 
BACK INTO THE SUNKER" :GOSUB 2080 :xXU=@: 
RETURN 

23]@ CLS 3 

2320 FOR 2é=] TO 50 

2330 POKE 1023+RNDC512),112 

2348 SOUND RNDL75)+5¢, 1 

2350 NEXT 22 

2360 FOR 22+] 710 10 

2370 PRINT@ 256, TASL1Z] "pra goif” 
2380 PLAY "C4 TILS@ARAACCCCEEEE" 

2390 PRINT@ 256,-"" 

2400 NEXT 22 

2440 RETURN 


Escape 


Escape is a fast-moving graphics game designed to test your 
coordination. 

Lines 50 to 100 print a series of characters across the top of 
the screen. The idea is to use a movable bat to bounce a ball up 
into these characters until you have knocked enough of them 
out of the way. This allows the ball to escape to the top of the 
screen. If you miss three balls with the bat, the game ends and 
you are given a score. 

The movement of the bat is controlled by the “Z” and the 
“P" keys. The “Z” key moves the bat to the left and the “‘/” key 
moves the bat to the right. 

Line 40 sets the variable SC to zero. SC holds your score for 
each game and has to be reset each time the game is played. 
Variable CX in line 110 sets the number of balls available in 
the game. You can increase or decrease the difficulty of the 
game by altering CX. 

Line 120 uses BA (the variable which remembers the pos- 
ition of the ball across the screen) and a randomly generated 
number to give a different starting position for the ball each 
time it is served. Line 130 sets the starting position of the ball 
down the screen. Variable F in line 140 is the distance across 
the screen of the player’s bat. 

The variables X and Y in line 150 are used to alter the 
position of the ball on the screen. They are added to the screen 
location in lines 260 and 270. To change the direction in which 
the ball is moving, the values of X and Y are converted to 
negative numbers and back again as required. Adding a 
negative number to another number actually subtracts it from 
that number, so by adding minus one to BD in line 270, the 
direction of the ball is changed and it goes back up the screen. 

Variables EA and ED are used to hold the previous screen 
location of the ball and, just before the ball is about to be 
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POKEd into its new location by line 180, line 170 POKEs a 
blank space into the old location. 

Line 200 prevents the ball from going off either side of the 
sereen. The subroutine which is called up changes the direc- 
ton of the ball by altering the value of X (line 370). 

Line 12 checks to see if the ball is 12 lines down from the 
top of the screen. If it is, the program then goes to the routine 
in lines 390 to 420. This checks to see if the ball has hit the 
bat. If contact has been made, the game goes on, with the ball 
going back up the screen. If the ball has missed the bat, we 
then go to line 430 where one is subtracted from CX, the score 
is printed and new starting positions are chosen for the bat and 
the next ball. If CX equals zero then the game is over. 

Lines 220, 230 and 250 use PEEK to check the line above 
the ball to see if the space which the ball is about to move into 
is occupied by an X. The routines which are then called up 
POKE a space to blank out the X which has been hit, in- 
crement the score and then change the direction of the ball by 
altering the value of Y. 

In lines 260 and 270 the location of the ball is changed by 
adding the current values of X and Y. Your input from the 
keyboard is accepted in lines 280 to 300. The value of F is 
altered and lines 310 and 320 make sure your bat stops when it 
reaches the edge of the screen. 

Lines 330 and 340 are used to POKE the bat on to the 
screen. The extra POKE statements in line 340 are used to 
POKE spaces either side of your bat so that only one bat 
appears on the screen at any one time. 

Line 350 sends the program back to line 17 so that it can all 


happen again. 


12 REM ESCAPE 
22 GOSUB 1080 
3@ CLS 
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49 SC=6 

5Q@ PRINT "HH HHHHHHHHEHHRRHHHHHHE AA 
RR' 

EQ PRINT "KXKKKKKAK AK KKK KK AK KK KKK AR KK RE 
we 

7@ PRINT " K KK K KK K KK OK KK KK K 


GB PRINT "K, K.K.K. KL. KR. RK, K 

9@ PRINT "*K.%®%.%X.xX.X. KX. Kaw 
104 PRINT “K K KKK KKK KKK KK AK AK 
4 u 

118 Cx=3 

120 BA=RND(5)+65 

130 BO=7 

140 F=5+RNDC 1G) 

150 K=]1%= 

160 EA=BA -ED=-BD 

17@ POKE 1024+(32*EDtEAI, 96 

180 POKE 1624+(32*xBD+BA),73 

190 EA=BA':ED=BD 

200 IF BAD3@ OR BA<! THEN GOSIJB 35@ 

216 IF BO>12 THEN GOTO 350 

220 IF PEEK(992+32480+BAJ=88 THEN GOSUB 

538:GOTQ 268 

230 IF PEEK(S92+32*BD+BA+1J=88 THEN GOS 
B S30:GOTD 264 

240 IF BO<1 THEN GOTO 758 

250 FF PEEK(992+32*B8D+BA~1)=88 THEN GOSI 
B 530 

260 BA=BAtA 

2% BD-BDrr 


284 
2908 
328 
3128 
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AS=] NKEYS 
IF AS="2" THEN F=F-2 
IF AS="/" THEN FeF +2 


“IF F C1 THEN Fel :POKE 1440+F, 95:P0KE 


1440+F+1,96 


320 


IF F>30 THEN F#=30-:POKE 1440+F;96 :POK 


E 1440+F-1,96 


338 
340 
350 
360 
373 
380 
330 
400 
4128 
920 
9430 
940 
453 
460 
472 


480 
EAT 
4450 
588 
518 
528 
538 
548 
558 


$=14940+F 
POKE S~2,96:POKE $+2,96:POKE S,140 
GOTO 170 
GOSUB 382 
ye-X 
RETURN 
GOSUB 382 
IF ABSCF-B8AJ>1 THEN 430 
Ye-¥ 
GOTO 22D 
GOSUB 382 
CX=CX~ 1] 
IF CX=0 THEN 619 
PRINT@G 448, "“SCORE*"3SC 
PRINTS 415; " 
*sREM 31 SPACES 
FOR T=100 TO 200 STEP 18:SOUND T,1:N 
1 
BAFRND(SI+6 
BD=? 
F=5+RNDL1B) 
GOTO 169 
GOSUB 380 
POKE (992+32450+BAI,96 
IF RND(IQI>8 THEN POKE (992+324ED+BA 


413596 


36 
96o 


-1); 


5? 
5&0 
938 
600 
618 
628 
630 
6443 
659 
660 
673 
682 
0 
630 
720 
718 
sc 
720 
73% 
740 
758 
760 
778 
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IF RNOE1B)<2 THEN POKE (992+324B0tBA 
36 
SC=SC+437 
PRINT@ 448, “SCORE 2" 35C 
T=-1 
RETURN 
FOR GR=i TO iggg@:NeExXT DN 
FOR TY=1 70 8 
PLAY “TZ58U39045AAGGGCOCE FF" 
FOR 00=! TG 18:NEXT OD 
NEXT TT 
CLS 
PMOBE }:1 
PRINT@ 16&, TABC8) “THE GAME 1S OVER 


SCREEN ©, 1 
FOR 9D=i1 79 588:NEXT DD 
PRINT@ 224, TABL6)] “TOUR SCORE WAS“; 


SCREEN @, 1 

FOR OD=) TO 1588:NEXT DO 

GOTO 38 

FOR 00=1 TO 1988:NEXT DO 

CLs g 

FOR SS=14 1G 288 STEP 28:SOUND SS, )+ 


NEXT SS 


788 
7390 
$215) 
818 
820 
830 
840 


GOSUB 3949 

GOSUB 3920 

FOR TT=1 TO 5 

CLS 3 

GOSUB 3948 

PLAY *T258U380Z2ARAGGGFFF™ 
GOSUB 39240 


Escape 37 


8548 CLS 4 
864 GOSUB 944 
8708 PLAY “1 2580380 2AAAGGGF FF” 
884 GOSUB 924 
894 NEXT TT 
94a GOSUB 924 
914 GOTO 34 
924 FOR DD=1 TO 244:NEXT DOD 
93@ RETURN 
944 PRINT@ 164; TABC8) “YOU HAVE DONE IT 
950 GOSLB 924 
964 PRINT@ 224; TAB(6) "YOUR SCORE WAS"; 
se 
974 RETURN 
984 SOUND 5,1 
994 RETURN 
1408 CLS @ 
1614 FOR Tt=t TO 254 
1424 *X=RNDC7 34164143 
1838 YY=RND(S1 1 3+1424 
1444 IF PEEKCYY)<>128 THEN GOTO 14034 
145@ POKE YY; *x 
1464 NEXT TT 
1424 PLAY "T25@U3@L2G03AARA GGGGFFFFARAA" 
1484 FOR GG-!} TO 5 
1494 PRINT@ 192; TABC12) “ESCAPE” 
1146 FOR OD=1 TU 14@:NEXT DD 
1114 PLAY "T25@U30L2G02FFFFAARARFFFFGGGG" 
112@ PRINT@ t92, " 
“3REM 31 SPACES 
1134 FOR DD=] TO 1@@?NExT OD 


114@ NEXT GG 


1154 


RETURN 


Dog Catcher 


Here we have a clever little program which will cause a great 
deal of excitement. You are a little dog (shown on the screen as 
a reversed “plus” sign) and you are trying to getaway from the 
dog catcher (shown as a blue square). The part of the dog 
catcher is, of course, played by the computer. 

By moving your dog around the screen — using the “A” key 
to move up the screen, the “Z” key to move down screen, and 
the “,” and “.” keys to move left and right — you must avoid 
the electronic, fully computerized dog catcher for as long as 
possible. After the dog catcher has caught you (and you will be 
surprised just how quickly he can do it} you will be told how 
long you avoided capture. 

Line 5@ sets the starting position of your dog, and line 60 
gives the initial location of the dog catcher. The variables EA 
and ED are used to blank out the dog as it moves, and EH and 
EV do the same for the dog catcher. These variables are used 
intines 100 and 110. 

The routine from tine 120 to line 180 accepts your input, 
and line 199P-OKEs the dog on to the screen. 

Lines 200 to 268 control the movements of the dog catcher, 
and line 270 POKEs him on to the screen. Line 290 checks to 
see if the dog catcher has caught up with you. If you are still 
free, line 310 loops the program back to line 70. 


18 CLS 

26 REM O0G CATCHER 
36 2=1424 

96 GOSUB 426 

5@ BA=26:81]=5 

68 TH=31:TV=15 
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78 EA=BA:E6=8D 
82 EX=TH:EV=TU 
5Q8 CLS 2 


122 


POKE @r(32kEN+EA), £59 


118 POKE 2+(32XTUtTH), 159 


122 
138 


As= INKEYS 
IF AS<>"A" AND ASO"Z" AND ASOD"," A 


ND ASO". THEN AS=BS 


148 
158 
168 
172 
1aB 
1398 
220 
212 
2228 
230 
242 
2528 
268 
272 
260 
258 
328 
312 
322 
333 
343 
358 
368 
378 
3aB 


BS =As 

IF As="A" AND BO>B THEN BO=BD-1 
IF AS="2" AND BO<1S THEN BD=BADt1 
}F AS= "," AND BAC31 THEN BA= BAT) 
IF AS= "," AND BAYB THEN BA= BA-1 
POKE 2+(32%B0+BA),43 

IF RNDC1B)>3 THEN 2328 

[F BO>TU THEN TU=TU+) 

IF RNDC1BJ>3 THEN 258 

IF BO<TU THEN TUFTU-1 

IF RNDOCLB)>3 THEN 268 

IF BA<TH THEN TH=TH-1 

IF BAD>TH THEN FH=THti 

POKE 2+(32kTU+TH): 1275 

Te[t 

IF BO=TU AND BA=TH THEN 3228 
SOUND 22; | 

GOTO 72 

FOR DD=1 TO 580:NEAT DOD 

FOR A=1 TO 12 

CLS RNDCS)~1 

SOUND RNDC28)+1B;1 

FOR DD=1 TO 25:NEXT OD 

NEXT A 

PRINTS 128, TABCL13 "I GOT Ypue" 


40 
390 
440 
410 
420 
430 
440 
450 
464 
470 
430 
490 
f=] 
314 
324 
334 
544 
354 
Pay 
56a 
374 
S84 
394 
600 
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FOR OO-1 TO S@@:NExXT DO 
PRINT@ 288, TABC7) "YOUR SCORE WAS"; 


GoTo 414 

CLS 2 

POKE 2+!28+31;43 
POKE 2+128+%,175 


xext} 

IF X=31 THEN Sad 

FOR ON=1 TO 25:NEXT DD 
POKE 2+127+X, 159 
GOTO444 

SOUND 25; 1 

FOR ARl TO 4 

CLS @ 


FOR QO-1 TO 1S@:NEXT OD 
FOR AK-1 TO 4 
PRINT@ 128, TABC8) "“** DOG CATCHER x 


SOUND 144,A+rz2 

NEXT A 

FOR ON=1 TO 1a@@a@:NExT DO 
CLS 2 

RE TURN 


Maze Runner 


Maze Runner is an arcade-type action game which wil! require 
quick reflexes and a good deat of tuck. 

The computer will draw a blue border around the screen 
and place blue blocks in the playing area. Down in the right- 
hand bottom corner there is an exit gate, indicated by a black 
and white bar. 

The computer will place you, the maze runner, in the top 
left-hand corner of the field. You must run across the screen 
and out of the exit gate without bumping into the maze blocks 
or the surrounding wall. You start the game with 2000 points, 
but each time you hit a block or a wall points are deducted 
from your score. The idea is to complete the task losing as few 
points as possible. 

To make life a little more interesting, the computer keeps 
adding maze blocks to the screen as the game runs. 

To contro! the maze runner, a reversed “plus” sign, use the 
“A”, “Z”, “,” and “.” keys. The “A” key moves the runner up 
the screen and the “Z” key moves you down screen. The “‘,” 
and “.” keys move you leftand right respectively. 

Line 40 sets your score to 2000. This is reduced by tines 
330, 370, 410 and 450 each time you bump into a block or a 
wall. Line 50 sets B$ equal to the “.” key. This is done to start 
the maze runner moving at the beginning of the game. 

Lines 60 to 110 print up the playing field. Line 120 gives 
the variable SL the vatue of 1090; this is the place where the 
maze runner starts on the screen. The part of the computer’s 
memory which controls the screen begins at memory focation 
1024 and runs to 1534. By using POKE we can place a value 
into any of these locations, thereby putting something directly 
on to the screen without using PRINT. This is how we wil! 
create the movement in this game. 

Lines 148 to 160 choose screen tocations at random and 


0.8.6.0. 
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POKE the maze blocks into them. The variable W is then set 
toequal the value of the screen location. 

Lines 180 to 240 then accept the input from the keyboard 
and move the maze runner around the screen by adding or 
subtracting numbers from the variable SL. By adding or 
subtracting 32 (the number of spaces across the screen) from 
SL, we can make the character move up or down the screen. It 
moves into the corresponding location in the line above or 
below the one it is already in. The PEEK statements check to 
see if the new screen location is already occupied by a blue 
block (code 175). Ifit is, the subroutines are called up. Each of 
these four routines does virtually the same job. First they call 
up the sound routine to provide the noise of hitting a block at 
full speed. The next line moves the maze runner back to his 
previous position (this prevents him from moving on to the 
block and erasing it). The following line alters your score, 
then the routine RETURNs to the main program. 

Lines 250 and 260 are safeguards to prevent the maze 
runner from accidentally leaving the screen and running 
around other memory locations. Many unusual disasters can 
occur if a stray POKE value is allowed to wander through the 
computer’s ROM, Always put safeguards into your moving 
graphics programs to prevent this from happening. 

Line 270 checks to see if you have arrived at the exit gate. If 
you have, the end routine is called up. 

Line 280 POKEs a blank space into location W, which is 
the previous position of the runner. Lines 210 to 240 updated 
SL, so the character is then POKEd into the current value of 
SL. This means that only one maze runner appears on the 
screen at a time to give the appearance of continuous 
movement, The maze runner is POKEd into a location, a 
space is then POKEd into the same location and the maze 
runner character is immediately POKEd into a new location. 

Line 296 POKEs another maze block on to the screen and 
then line 300 sends the program back to do it all over again. 

This program shows the basic techniques of moving 
graphics, Study it carefully and adapt it to your own 
programs, 
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1@ REM MAZE RUNNER 
24 GOSUB 75a 
34 CLS 
4a SC=2000 
5@ fs="_" 
6@ FOR xx=@ TO 31:PRINT@ XX, CARSC175)3: 
NEXT &x% 
7a FOR *x=32 TO 415 STEP 32 
84 PRINT@ XX, CHRSL1I75) 5" 
“SCARE(175):REM 3@ SPACES 
3@ NEXT XX 
148 FOR XX=416 TO 444:PRINT@ XX, CHRSC17 
SJ3-NEXT XX 
114 FOR X¥X¥=1969 TO 1471:2POKE &%*; 156 +NEXT 
xx 
128 SL=103¢0 
134 FOR T=1 TO 34 
144 2=1@56+RWO( 441) 
15@ POKE 23175 
16@ NEXT T 
17@ W=SL 
184 AS=]NKEYS 
194 IF AS<>"A" AND A$ "2" AND ASO"," A 
NO AS<>"." THEN AS=BS 


200 BS-As 

218 JF AS="," THEN SL=SL+1:I1F PEEKCSLI=] 
75 THEN GOSWB 314 

228 IF AS="," THEN SL=SL-1:IF PEEK(SLI=1 


7S THEN GOSWB 350 

230 IF A%="2" THEN SL=SL+32:IF PEEKCSLI)= 
175 THEN GOSLIG 3294 

248 IF AS="A" THEN SL=SL-32:IF PEEK(CSLI= 
175 THEN GOSLIG 434 


250 
264 
276 
284 
298 
30a 
314 
324 
334 
34a 
35a 
364 
374 
38a 
39a 
4a 
41a 
420 
43a 
44a 
45a 
46a 
474 
48a 
49a 
Sag 
514 

OF 
520 
534 
54a 
554 
56a 
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JF SL<JG24 THEN SL=1024 
IF Sl>1535 THEN SL=1424 
IF PEEKCSLJ=i156 THEN 624 
POKE W,96:POKE SL, 43 
POKE 1424+RNODC401),175 
GOTO 174 

SOUND 14; 1 

SL=SL-1 
st=St-CRNOCS@) +54) 

GOTO 464 

SOUND 1431 

SL=SL+1 
sC=SC-CRNOC54)+54) 

GOTO 464 

SOUND 14,1 

SL=SL-32 
sc=sc-(RNOCSa)+5a) 

GOTO 464 

SOUND 14;1 

SL=SL+32 
sC=sct-(RNO(543+50) 
PRINT@ 448, "SCORE: "3SC 
IF sC=<@ THEN GOTO 494 
RETURN 

FOR OO=1 TO 1@@@:NExT OD 
CLs @ 

PRINTS 224, TABC3) “YOU HAYE RUN OUT 
POINTS" 

PLAY “U3@L 1d@ARARAARAAR A" 
FOR O0=1 TO 1@@:NEXT OOD 
CLs @ 

FOR OO=1 TO 2@@:NEXT OD 
PRINT@ 224, TABCS) “YOU HAVE LOST" 


572 
582 
5328 
6282 
EXT 
618 
628 
532 
648 
6528 
668 
670 
682 


6308 
728 
sc 

7128 
722 
3) ° 
738 
748 
7328 
768 
778 
782 
7328 
880 
8108 


830 
8428 
858 
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PLAY “U3QL1Q@FFFFFFFFFF” 

FOR 00-1 TO 300:NEXT OD 

TT=TT+) 

If TT=3 THEN TT=0-FOR DO=1 TO 1000:N 
00-GOTO 338 

GOTO 3%Be 

FOR OD-ij TO 10@Q:NEXT OD 

FOR X=8 TG 8 

CLs X 

SOUND RNOCS@I)+425,1 


FOR DD=1 TO 10:NEXT OO 
NEXT X 
PRINT@ 128, TABC8) “THE GAME IS OUER 


FOR O0O=1 TO SQ@O:NEXT ODO 
PRINT@ 224, TABCE) "YOUR SCORE WAS"; 


FOR O07] TO S@8:NEXT OO 
JF HS<St? THEN FS=SC-:PRINT@ 320; TABL 
THIS IS THE BEST SCORE" 





FOR OD=1 74 1580:NExT DO 
GOTO 32 

as 3 

FOR OD-! TO SQQ:NExT OD 


FOR NN=] 16 50 


POKE 1824+RNO(468];191 

SS=RNO{25) +200 

SOUND $5; 1 

NEXT NN 

PRINT@ 224, TABCS) "*HAZE RUNNER" 


FOR 00-1 TO 1088:NEXT O00 
FOR TT=1 TO 5S 
PLAY "V3Q8T25¢L20804AAARAGGGGFFFFFFFF™ 
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866 FOR DO=! TO 16:NExTt OD 
878 NEXT TT 


880 RETURN 


Paper Chase 


You are fortunate to be right on the spot when a large sum of 
money blows out of the window of a bank. Bundles of notes 
are lying on the ground and you (the V shape) must rush 
around picking up the bundles (indicated by the numbers 
which appear on the screen) before the wind blows them away. 
Each time you pick up a bundle of money, the amount of 
money in the bundle is added to the total amount you have. 
This is displayed at the top of the screen. 

You control your man on the screen by using four keys on 
the keyboard, The “‘A” key moves you up the screen; the “Z” 
key moves you down screen; the “,” key and the “.” key move 
you left and right respectively. 

Paper Chase is only a short program but it will provide you 
with lots of fun. 

Line 40 and line 5@ set the score and the starting location of 
your player. Line 60 sets the variable M, which is used to 
POKE your character on to the screen. Lines 130 to 160 change 
thie value of M depending on which direction you are travelling, 
In this way the appearance of the character on the screen 
remains roughly the same no matter which way you are going, 

Line 70 is the start of the FOR/NEXT loop which controls 
the main part of the game. Line 8@ selects a number and a 
screen location to POKE the number into. 

In line 90, variable W is set equal to the screen location 
(SL). W is used later to place a blank space into the old 
location of your player. This happens in line 190, 

Lines 100 to 160 accept your directions from the keyboard 
and alter the variable SL accordingly. B$ is used to create 
continuous movement. In tine 120 B$ is set equal to A$, your 
input. The next time through the foop, if a key isn’t pressed 
then line 110 uses B$ as an input. This is, of course, the 
direction you last chose. 
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Line 17@ sets the variable Q to equal the PEEK value of SL. 
Line 18@ then tests Q to see if you have ‘picked up’ a bundle 
of money. If you have, it works out how much money was in 
the bundle and then goes to line 23@ where your score is 
printed on the screen. The next line gives the sound effect. 
Line 26@ POKEs your player on to the screen. Line 210 is 
used to remove the bundle of money from the screen. If the 
random number generator is less than 10, the money stays on 
the screen. If it equals 10@ then the screen is cleared and the 
nextZ is calledup. This also happensafter you have picked up 
abundle of notes. 


12 REM PAPER CHASE 

22 GOSUB 370 

38 CLS 

42 sc=8 

58 SL=1856 

62 M=86 

72 FOR 2=1 TO 24 

80 POKE 1088+RND(468),RNDC3)+112 

98 Wesl 

180 As=]NKEYS 

118 IF AsO".* AND ASO", " AND ASO”"A" A 

ND AS<>"Z" THEN AS=BS 

120 Bs=As 

130 IF Ag="." THEN SL=SL 41 -M=126 

148 IF Ag="," THEN SL=SL-1 ?M=124 

150 IF As="A" AND SL>1888 THEN SL=SL~32: 
=65 

162 IF As="Z" AND SL<ESO3 THEN SL=SL+t32: 

M=86 

170 Q=PEEK(SL) 
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180 1F @>111 AND 8<¢122 THEN SC*SC+(QARNG 
(18)+5):GOTO 238 

192 POKE W,96 

2288 POKE SL,M 

210 1F RND(100)<100 THEN 30 

220 FOR T=1 TO 20:NEXT T 

230 CLS:PRINT@ O, "MONEY $”5S5C 3" "32R-73 
“NOTES LEFT" 

242 SOUND RND(25)+125, 1 

250 NEXT 2 

268 FOR OD=1 TO 18@@:NEXT OD 

278 CLS 3 

280 FOR TT=1 TOS 

299 PLAY “VU30T258L 18001 GGGGGGGG92CCCCCCC 
c" 

388 FOR OD) TO ]@:NEXT DD 

312 NEXT TT 

320 PRINT® 168, TABI(4) "ITS ALL QUER MON 
EYMAKER™ 

33@ FOR OD=1 TO SQ@Q-NEXT DO 

340 PRINT@® 288, TAB(6)] “YOU MADE"38C;"D0 
LLARS" 

358 FOR OD=1 TO 2008:NEXT DD 

368 GOTO 30 

378 CLS B 

380 FOR *xX=1024 TO 1535 

390 POKE X%X,RNOC126)]+128 

4208 NEXT XX 

418 GG=84 

$28 FOR TT=i TO 5S 

430 PLAY “T2ABU3B02GGAAGGFFGGAA" 

440 PRINTS GG, TABCIQ) “PAPER CHASE" 


458 


FOR UN=1 TO SQ:NEXT OD 
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462 GG=GG+96 

470 NEXT TT 

480 FOR DD=1 TO 258-:NEXT DD 
498 RETURN 


Meteor 


In this game, written by Mark Farrell, your job is to blast 
large meteors as they bounce about the sky. 

The movement of your laser cannon is controlled by the left 
and right arrow keys on your keyboard. The “F"” key fires the 
cannon. At the beginning of the game you will be asked which 
level of difficulty you require. Number one is the hardest, 
number ten is the easiest. This level of difficulty relates to how 
long each meteor stays in the sky before it disappears. Each 
time you let a meteor get away you lose a life. 

You will also be asked how many lives you require. You are 
allowed a minimum of twoand a maximum of seven. You lose 
a life each time you let a meteor get away or if you fire at a 
meteor and miss. After each hit you will be given a points 
score. The game ends when all your lives are used up. 

Line 120 accepts your required level of difficulty and line 
130 makes sure your input is legal. Line 140 multiplies the 
level of difficulty by three, and this then becomes the length of 
the loop used to keep the meteor on the screen. Each time the 
program runs through the loop, from line 190 to line 430, line 
250 increments the variable $ by one and then tests it to see if 
it equals the level of difficulty. If it doesn’t, we keep on going; 
but if it does, the program goes to the routine from line 490 
which tells us that the time has run out. 

Line 170 sets up the starting position for your laser cannon, 
and line 180 is the starting coordinates for the meteor. Lines 
200 and 210 control the random movements of the meteor. 
Variable A is the vertical position and variable B the horizontal 
location. 

Lines 220 to 240 provide the background of stars in the 
night sky. Lines 250 to 340 are the routines which draw first 
your laser cannon and then the meteor. 
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Your input from the keyboard is taken and processed by 
lines 350 to 410. Lines 360 and 370 accept the direction 
changes from the arrow keys and increment variable X 
accordingly. Lines 390 to 410 then redraw the cannon in its 
new position. Line 38@ checks to see if your input was “F”’, 
and if it was we then go to the routine which fires the cannon. 

Lines 440 to 470 are the firing routine. The loop in lines 440 
to 460 draws the shot from the laser, and the first statement in 
line 460 checks to see if you have hit the meteor. If you have, 
we then go to the routine from line 520 which congratulates 
you and gives you your score. If you haven't hit the meteor 
then the loop continues. When the loop has finished running 
the computer knows that you have missed the meteor and so 
we go to the routine from line 540 which tells you that you 
have missed. 


1@ REM METEOR 

26 CLS @ 

3@ POKE 65495,4 

4@ PCLS 

S@ CLEAR 1044 

6@ FOR TL=l TO 5 

7B PRINT@ 172; "AXKAKKKKKA” ; 

€@ PLAY “T2aa02AGFO” 

$a FOR OO=! TO 144:NEXT OO:PRINT@172, "re 
METEGRKK” 5 

140 PLAY "T2GG03AF AFOE" 

11@ FOR OO=1 TO 14@:NEXT OG:NEXT TL 


126 PRINT@ 295, ""3 2INPUT"OIFFICULTY (}-1 
@)” 30F 

134 IF OF<1 OR DF>3@ THEN GOTO i2a 

144 O1=0FX3 


154 PRINT@ 362,°"3:INPUT “LIVES C2-7)"3L 


Meteor 
160 IF L<2 OR L>? THEN 158 
170 *=100:7=193 
188 A=i80:B=100 
19Q PMODE 4;1:SCREEN 1;1 
288 G=RND(2):IF G=1 THEN A=AtRNDC25) ELS 
E A=A-RNDL25) IF A>255 OR A<27? THEN A=RN 
O50 +58 
218 WeRNDC2):1F W=1 THEN B=BtRND(25) ELS 
E— B=B-RNO(25):1F B>193 OR B27? THEN B=RN 
O(50)+58 
220 FOR P=1 TO 5 
230 PSETCRNDC255),RNDC193)) 
248 NEXT FP 
258 S=St1:IF S=D1] THEN GOTO 499 
260 A$=""U5SE4F 405L2USL405L2BUSRBL2H2G62" 
278 M$="R3U3L303U3SE3R3G6303E3U303L 3U30 363 


280 MMNS=MS$+"RIETR4IEZGZL 3R3GI"+Ns 

290 DRAW'SS sABIBM"+STRECK I+", "+STRECTI+A 
$ 

380 DRAW'AZ;BM"+STRSLAI +"; “+STRSCBI+IMS 
310 DRAW’ A] FAM" +STR&CA] +", "+STRSCB-28)+N 
ne 

320 PAINTCX+2; 7-3); 151 

33@ PAINTCX413;7-3)3151 

340 PAINT CX+t8,7-133,351 

358 E¢=INKETS 

368 IF Es=CHR¢(8) THEN X=x-8 

370 1F Es=CeRS(3) THEN X=x+8 

380 JF ES="'F" THEN GOTO 448 

398 LINECXK~8, 7 J-CX+28, 7-28), PRESET; BF 
4828 LINECA-12; B+1Q)-CAt12,B-38), PRESET sB 
F 
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41@ PSETCX+8, Y-20) 

420 IF PFOINT(X+8,7-15)=1 THEN GOTO 49a 

43@ GOTO 1394 

44@ FOR T=i73 TO 1 STEP -1 

45@ PSETCX+8, 7) 

46a IF PPOINTC X+8,T-1)55 THEN 52@ ELSE N 

EXT 

474 PCLS:GOTO 544 

48@ FOR T=) TO 6A8:NEXT T 

49@ FOR T=! TO 1@:LINECRNDC255),RNDC193) 
3-€RNDC255),RNO(1933},PSET,B:NEXT T 

544 CLS @:PRINT@ 195, “TIME UP ~ 1 SHIP 

LOST?2"; 

514 PRINT® 297, "LIVES LEFT ="5:L=bL~-1:PRI 

NT L j3:PCLS:FOR U=l TO 15@@:NEXT Li:S-@:1F 
4=@ THEN 584 ELSE GOTO 174 

5?@ FOR TL=1 TO 3:PLAY "T25G01F GFGOZABAB 

O3DO00P1" -NEXT TL 

530 CLS 4:PRINT@ 242,"GO0OD SHOT?2"3:PRIN 
Te 2654,""TOU EARN BONUS POINTS$2$"3 -St=se 
+RND(240)+5@44:PRINT@ 330; "SCORE=" 3503 :S= 

@:FOR U=) TO 1Ga@:NEXT'U:PCLS :GoTO 176 

54a FOR TL=t TO 2:PLAY "T25@01AAFFGGAA": 

NEXT TL 

554 CLS G4 

S64 PRINT@ 196, "YOU MISSED - I SHIP LOS 

TLE" 5 

570 PRINT@ 297, “LIVES LEFT ="3:L=L=1:PR 
INT L3:PELS :FOR U=J TO 15@@:NEXT U:S=0-2 

f— L=@ THEN 584 ELSE GOTO 174 

58@ CLS @ 

59a PLAY “T1@@01AABBCCDDCCBBAABBAA" 





644 
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PRINT® 192, TABLS) “THE GAME IS CVER 


“:FOR OO=! TO 14@@@:NeExT OO 


614 
624 
" 

634 
644 
65a 
664 


PRINT@ 256, TABC1@) “SCORE ="3jSC 
PRINTS 324, TABCS) “PLAY AGAIN CYANI 


AS=INKEYS:[F AS="" THEN GOTO 634 
IF AS="T" THEN RLIN 

CLS@:PRINT@ 192, TABCI2) “GOOOBYTE" 
GOTO 664 


Adventure Games 


Vadrand’s Treasure 


Here we have an adventure-type program, written by Doug 
Rolfe, which will generate a great deal of suspense and ex- 
citement. 

You are travelling through an underground fortress built by 
the warrior king, Vadrand. Vadrand is long dead and the 
fortress has fallen into ruin but there are still treasures to be 
found in the many levels and rooms. A magical creature roams 
through the levels, left behind to protect the fortress from 
treasure hunters. This monster may only be killed by a sword 
which you may be fortunate enough to find in the rooms about 
you. However, finding the sword may not be the answer to 
your problems. Before you can defeat the creature you must 
have sufficient experience points to survive the encounter. 
You gain experience points by finding and examining boxes 
and chests. In this way you will also find much gold, but 
watch out for booby traps. 

When you get within five rooms of the monster you will 
probably hear him moving about. If you do not have the sword 
or thenecessary experience, stay awayfrom him. 

The program has a teleport feature but you may only use 
this when you have gained the required magical skills. 

After each move you will be told which directions are open 


10 you. 
The commands for the game are: 
“uF = up 
"DD" = down 
mR right 
LA 6 = left 
“F" = forwards 
eae = back 


*T* = teleport 
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ange 


“> = put down 
“E’= examine 
“y" = inventory 


“Q" = quit the game 


Lines 50 and 6@ set up the starting positions for the 
adventurer and the monster. 

Line 70 sets up your stamina and the amount of gold and 
magic available. 

Line 100 calls up the routine which displays the options you 
have open to you (tines 350 to 430). 

Line 110 calls up the routine which moves the monster. 

Lines 140 to 330 accept your keyboard input and work out 
your move (line 17@ checks to see if you have been killed). 

Line 344 is called into play if you make an illegal move. 

Lines 440 to 550 change your position in the fortress. 

Lines 560 to 590 provide the inventory routine. 

Lines 600 to 610 contro! the locations of the walls. 

Lines 630 to 680 provide the routine which looks after the 
boxes, the chests and the sword. 

Lines 690 to 750 are the GET routine. 

Lines 760 to 820are the PUT DOWN routine. 

Lines 820 to 980 are the EXAMINE routine. 

Lines 990 to 1100 reset the order of possessions after the 
GET, PUT DOWN or EXAMINE routines have been used. 

Lines 1200 to 1280 move the monster and check his position 
in relation to your own. 

Lines 1290 to 1370 tell you the direction of the monster. 

Lines 1380 to 1470 are the monster encounter routine. 


1Q REM UADRAND?S TREASURE 
26 GOSUB 1530 
32 NP=0 


Vadrand’s Treasure 
4a CLS 
5@ X=RNDC140)]+24:7=RNO[ 140)+28:2=RNOC7GI 
+2 
6@ MX=RNO(24)+xX-14 :-MY=RNO(C 2G) +X¥-Y¥ 2MZ=RNO 
(14@)-S+2 
7@ T=G. 3:S=20G+RNO(48G) :M=}GG+RNOC 444) :G 
=S@0+RNOC1] 40) 
8@ FOR XxX=]1 TO 2:SOUND 20G;1 :NEXT Xx 
9@ PRINT:PRINT “YOU HAYE BEEN TRANSPORTE 
O To" :PRINT "LEVEL" 52 
166 GOSWB 354 
114 GOSUB 538 
1246 GOSUB 1744 
13@ IF MX=X ANS Ye!l?¥ AND Z=Mz THEN GOSUB 
1384 
14@ PRINT “YOUR MOVE: “3 :S=S<@.1:M=M-@.85 
tEM=XE +a. 25 
15@ AS=INKETS 
164 [F A$@"" THEN PRIN] AS 
17@ [F S¢<5 THEN GOTO 58a 
18@ FF A%="Q" THEN GOTO 1144 
19a IF Ag="U" THEN GOTO 544 
240 IF As="E" THEN GOTO 824 
214 IF Ag="D" TREN GOTO 524 
220 IF AS="F" THEN GOTO 444 
234 IF A¢='"I" THEN GCTO 56a 
244 IF At="B" THEN GOTO 464 
258 IF At="R” THEN GOTO 5aa 
264 IF At="G" THEN GOTO 694 
27@ IF As=-"P" THEN GOTO 764 
280 IF Ag="L" 1HEN GOTO 48a 
296 [F A#="T" ANDO M>60@ THEN X=X-14+RNOC 
21J)-1:%=f-18+RNGC21)-1:GOTO 34a 








61 


62 


30a §F ag="7™ 
PRINT ?PRINT 
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AND M<=64@ THEN GOSUB 1664 
"YOU OO NOT HAVE THE MAGICA 


L°:PRINT "SKILLS TO TELEPORT YOURSELF YE 
T":IF NC=@ THEN PRINT “LOOKS LIKE YOU?’RE 
TRAPPED FOR" :PRINT “GOOD":GOTO 144 

314 IF AS="T" THEN GOTO 144 

328 IF AS<>"" THEN PRINT:PRINT "I DON’T 
UNDERSTAND THAT...":GOTO 144 

33a GOTO 154 

344 PRINT “thomp 
GUESS THAT MEANS YOU CAN’T* 
HAT WAY]":GOTO 144 

35@ NC=@:PRINT "YOU CAN GO : "3 

3608 X=X+]:GOSUB 6GG:IF W<T THEN NC=1:GOS 
UB 17@0:PRINT "LEFT; " 


Gop. 


SOUND 1;2:PRINT “Cd 
“PRINT "GO T 


? 


370 X=xX-2:GOS 
=) :GOSUB 1744 
380 Y=T+1:GOS 
UB 1?@0:PRINT 
394 Y=Y-2:G0S 
=1:G0SUB 170d 
400 Z=2%+1:605 
UB 174G:PRINT 
410 2=%-2:G605 


THEN NC=1:GOSUB 1744:PRINT "LP; 


42a IF NC=4 


TRAPPED 2S" :GOSUB 172@:ELSE PRINT "... 


43a 
440 
45a 
46a 
474 
48a 


RETURN 


Y=¥=1:G0T 
Y=T-1:G60S 
Y=T+1-GOT 
x=) 2GOS 





UB 6GG:x=X+1:1F WT THEN NC 
2PRINT "RIGHT> “3 
UB 6@G2IF W<T THEN NC=] :GOS 


"FORWARDS, "3 
UB 6G0:v=T+]:1F W<T THEN NO 
-PRINT "BACKWARDS, "3 








UB 6AG:1F W<T THEN NC=] :GOS 
"DOWN: "5 


4 


UB 640 :2=2Z+1:IF W<T AND 21 


Ihe 
+ 


YSU ARE 





HEN PRINT "NOWHERE, 


" 


Y=T+1:GOSUB 6GG:IF W<T THEN GOTO 144 


0 344 
UB: 640 :1F W<T THEN GOTO 144 
0 344 
UB 6GG:IF WT THEN GOTO 14a 
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94399 X=x-1:GOTO 344 
5@@ X=X-1:GOSUB 64@:IF W<T THEN GOTO 144 
514 X=K+i:GOTO 344 
524 2=2+{):GO0SUB 64@@:IF W<T THEN GOTO 148 
53a @=?-1:7G0TO 3244 
54@ 2=2-1:GOSUB 64@:IF W<T THEN GOTO [44 
554 #¢=2+]-:G670 344 
56@ PRINT “GOLG PEECES:*3G:PRINT “MAGIC 
POINTS: "jJiTEMIIPRINT “EXPERIENCE POINTS 
2°G INTCEXI:FRINT “SIAMINA: “3S INTCS) 
87@ FOR XX=1 TC NP:PRINT POSCRKKIINEXT XX 
58@ [F S<5 THEM PRINT "YOU HAVE DIEDS3": 
HOTO 14k 
534 GOTO 146 
64@ U=}GaseSORiCAC2ZI+ (74 234KBS02 59 
61@ W=U- ENT Ci 
624 RETURN 
63@ RN=RNDC24)-] 
644 N= 
65@ [F RN=1 GR &N=2 THEN PRINT "YOU HAVE 
FOUND & BOKES":N=N+] :OBSCNI="BDK" 
£64 !§F RN=Z2 OR RN=3 THEN PRINT "YOU HAUE 
FOUND 4 SMALL CHEST$§" -N=N+] -DBSC(N}="CH 
EST" 
67@ fF RN=19 ANG WE=@ THEN PRINT “YOU HA 
YE FOUND THE SWORD YOU" :PRINT “NEED TO K 
ILL THE MONSTERS!" sWE=] 
6&4 RETURN 
694 IF NP=3 TREN PRINT “YOU CAN’?T CARRY 
ANY MORE":GOTO 144 
7a [Ff Ne@ THEN FRINT “THERE [S NOTHING 
TO GETS?" :GOTO i494 
71@ PRINT "THERE 15:":PRINT 
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728 FOR Xx=i TO N'PRINT &K3"} "OBS (CXK) 
INERT KK 

73G PRINT!SENPLT "WHICH: "3GE:IF GE) OR G 

E>N THEN PRINT "“IMPOSSIBLE22":GOTO 73a 

A24@ PRINT "O.k,. ‘OU HAVE A " j0BSCGE) :NP= 

NP+1:POS(NP) =OBS(GE3 tN=N-1 

758 GOTO 144 

768 {F NP=@ THEN PRINT “YOU HAVE NOTHING 
TO DROP" :GOTO 348 

778 PRINT "YOU HAVE: "SPRINT 

78G FOR XX=)] TO NPIPRINT XK3"3 "SPOSLAX 
SINEXKT Xx 

738 PRINT:INPUT "WHICH:";DR:IF OR<I OR O 

R>NP THEN PRINT “IMPOSSIBLE 22":GOTO 73a 

806 PRINT “O. kK. TOL) HAVE OROPPEO A" ;POSt 
GE) :0BS(N3J=POS(GE3 (N=N+1-°GOSIIB iG7@ :NP=N 

P-1I 

816 GOTO 146 

826 [F NP=@ ANDO N=@ THEN PRINT ' THERE JS 
NOTHING TO EXAMINE" + GOTO 148 

8230 [F NP=@ THEN GOTO 85a 

844 PRINT "YOLI HAVE*?“:FRINT!FOR XxX=1l TO 
NP:PRINT XK3") "SPOS{RKKIINERT KA 

850 [F N-e@ THEN GOTO 87a 

860 PRINT:PRINT “YOU SEE:"?PRINT?tFOR xkK= 
NP+? TO NP+N:PRENT AKI" "SGBSLAX=NP JIN 

EXT &x 

876 PRINT:INPUT "WHICH!" 3{N:IF IN<@ OR i 
NON+NP THEN PRINT "“fMPOSSIBLE22":GOTO 82 
8 

886 IF NeG OR FN=<NP THEN [$=PO#CINI:GOS 

UB 99a 
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890 IF NP=@ OR INDNP THEN I$s0B${ JN-NPI: 

GOSUB 128308 

S80 PRINT “THE “3183 

918 K=RND(10j-1 

320 1F K=@ THEN GOSUB I662:PRINT “ HELD 

POISONOUS GASE2o" ss=5-30 

330 JF K=1) THEN GOSUB 166@:PRINT “ HELO 

A SNAKES S"3PRINT “YOU WERE BITTENSS":S-5 
~20:EX=EX+5 

848 IF K>l AND K<S THEN GOSUB 1620:A=RND 
£20)+5:PRINT “ CONTAINED” 3A3“GOLD" >PR INT 
* PIECES? 9" :G=GrAsAS="F"2GOTO 230 

958 IF K>4 ANDO K<® THEN GOSUB 1720:PRINT 
“ WAS EMPTY” 

S60 JF K=8 THEN GOSUB 1660:PRINT “ EXPLO 

DEO. YOU WERE KILLEDS2":+S=8-GOTO 58a 
S78 IF ®=S THEM SUSUG 1620-PRINT “ CONTA 
INZO A SPELL TRATT: FRINT " YOU":PRINT © 

RELEASED. i7 FAS PCOSTEG"-: PRINT “YOUR S 
TANI NA AND EXPER LERCE PRINT "POINTSYO"s 

S=StRNN (58) -EX=EXtENOC1OO) :As="["sGOTO 2 

30 

8G EX=ExX+5:G0iL. 14e 

990 [F IN=2 THEN POSC1I=PO$(23-PO$(23=P0 

${3):PO$(3}="" sNP=NF ) 
1000 [F [N=2 TREN FO0%€2)=P0$13) :POS(3}=" 
= :NP=NP- } 

1018 IF IN=3 TREN PO${3)="" :NP=NP-1 

3820 RETURN 

1030 [F fN=NF=1 THEN O8¢£1)=O0B$(2) :OBS{2 
)=08$ (3) -OR${3)]="" =N=N-} 

104@ 1F [NeNF'=2 THEN OB$(23*0B$(33:08$(3 

Ja“ "ENSN-] 
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4956 IF [N-NP=3 THEN OBS(3J="":N=N-] 
1868 RETURN 

1676 [F OR=] Tein POS C1] }=POS(2) :PGS(23=P 
Os(37:FOs(3jJ="" 

1686 [F OR=? TreN POS(7)=POS(3) :POs(3)=" 
1086 [F OR=3 THEN POS(3)="“ :NP=NF-j 

1166 RETURN 

1118 U=]1BBXSBRECAXS 2] ¢ CMY °2) XABSLN2Z IF 
1126 WeWJ-INTC id 

1136 RETURN 

1146 PRINT:PRIN] “ARE YOU SURE (CY/NI7" 


F156 AS=INKEYS: tr As="" THEN GOTO 11568 
3166 [F Ag="T" THEN CLS:PRINT "O.K. BYE, 
» “TEND 


117@ IF AS="N" THEN PRINT "“GREATS99" :GOS 
UB 358 

1188 GOTd 11a 

1188 GOTO 1158 

1288 CX=SGNCX-MY3 PC T=2SGNCY-NY) :€ 2=SGNL2Z- 
M2) 

121@ NY=NY+CY:S@SUB 1]10:IF W¢1G THEN GO 
TO 1230 

1228 MY=NY-cY 

1238 NX=NX+C%:GO3UB 1110s1F W<T THEN GOT 
0 1258 

124@ NX=Mx-Cx 

1258 M@=M2+C2 :GOSUB }120:1F W<T THEN GOT 
0 1278 

1268 N@=N2-Cz 

1278 1F ABS(X-MXJ<5 AND ABSCT-17)<¢5 AND 

ABSC2-NZ1<5 THEN GOTO 1298 

1288 RETLIRN 
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1258 PRINT “YOU HERR A SCRATCHING NOISE 


wa 


1398 IF SGNCX-MXJ=~-b THEN PRINT “RIGHT; 
" 

1318 IF SGNCX-MXJ=1 THEN PRINT “LEFT, “3 
1328 IF SGNCY-NYJ==1 THEN PRINT “BACKWAR 
D, oe i 
1338 IF SGNCY-NYJ=1 THEN PRINT “FORWARDS 


ila 
: a 


1348 IF SGNC@-MeJ=-I THEN PRINT “UP: “5 
1358 IF SGNC@ M2)=1 THEN PRINT “DOWN, "5 
13628 PRINT “OF YOU" 
1378 RETURN 

1384 PRINT “THE MONSTER RAS CAUGHT UP TO 
YOu" 

1398 FOR DO-1 TO S@B:NEXT DD:GosuB 1788 
1498 IF ExX<SBB OR WE<S>E THEN PRINT “YO” 
HAVE NO HOPE OF BATTLING HIN"?PRINT “HE 

HAS MUNCHED YOUS2"2S=8-G0TO 588 

1418 FOR GD=} TO 188B:NEXT OO:GOSUB 1788 
1428 BO= CEX*ASKG3/28B 

1438 IF RNDC1Z1>6 AND BOSRND(274B)+278 TRE 
N PRINT “YOU WEFE VICTORIOUS2£":GOTO 148 
a 

144 FOR DO=1 TO 7S58-:NEXT 00:GOSUB 1788 
1458 PRINT “YOU HERE KILLED’ :?PRINT "YOU 
SHOLILD HAVE KEPT AbNAT FRO CPRINT "HIN": 
GOTO 1480 

1462 FOR fi TO 7SG:NEXY OD:60SUB 1788 
1470 RETURN 

14828 PRINT: TINPE?T “BO YH WISH TO PLAT AG 
HIN? SAS 

1498 AS=LEF14( AS; 1} 
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IF AgS="¥" THEN RLIN 
IF A&="N“ THEN CiOS:FRINT "O.K. BYE. 


“END 


1520 
1538 
1346 
1556 
Te® 

1566 
157 
1586 
1538 
1666 
1616 
1626 
1636 
1646 
1656 
1666 
1676 
1686 
16396 
1708 
1718 
1726 
1736 


GOTO 148 

cis @ 

FOR kx=j 75 15 

PRINT® XY, TABC?7) “vadrand’s treasu 


PLAY "O94 T*ii. ASE EEEEE FFE FFF GGSGGGG6" 
KY =RKY¥432 

CLS 8 

NEKT X&® 

cts 

RETURN 

FOR. XX=] TOS 

SOUNO 280, 4 

NEXT xx 

RE TURN 

FOR XX=1 10S 

SOUND 16,1 

NEXT Xx 

RETURN 

SOUND 358,7 

RE TURN 

PLAY *“T4i.260Z2AAACCCO] GEGGGOZAARA” 
RE TURN 


Cavern of the Shadow Thieves 


Next, we have an adventure program which creates its own 
stable map. That is, the map does not change within a game 
but is totally different from game to game. The action takes 
place underground in a maze of twenty caves connected by 
tunnels. 

Although the number of possible combinations is not infi- 
nite, it is so huge that you are unlikely ever to strike the same 
cavern system twice in your lifetime. However, the lack of 
true randomness in the computer’s random number generator 
diminishes the total number of caverns you may visit, 
although you are unlikely to stumble across the same cavern 
more than once. 

Cavern of the Shadow Thieves takes place in a very odd 
environment. You are within a maze of twenty caves trying to 
get to cave number twenty. Each cave has four, and only 
four, tunnels leading from it to other caves. Some of the 
tunnels are one-way only, while others allow you to travel back 
and forth. 

Several of the tunnels will contain rare treasures such as 
platinum shields and sparkling amulets. You can carry up to 
four items at a time. Other caverns are the homes of unusual 
inhabitants, such as gruesome gnomes and zany zombies. 
Each inhabitant will demand a toll of some sort before it will 
let you pass. If you are carrying the item, the inhabitant will 
take it off you and allow you to pass; if you do not have it, you 
will be sent back to the cave you have just left. 

You should make a map as you make your way through the 
system of caves. This way, you will know where the in- 
habitants are and what bribes they require to let you past. This 
can save you from a lot of aimless wandering. As we have said, 
the interconnecting tunnels do not change within the course of 
a game, so you can plot your map with a great deal of confi- 
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dence. Note that some caves contain a magic teleportation 
spell which will move you at random to another cave. 

The only goal of this game is to get to cave number twenty, 
and you will find that the output from the program will assist 
you in this task, reporting your position and possessions after 
each move. 


16 REM CAVERN OF THE SHADOW THIEVES 

20 GOSUB 1580 

36 DIN ACZG,4),R$(4),8$(20) ,C$ (20), 08020 
3,E$(20),F$(20) 

46 CLS 

5@ GOSUB 1650:REM BUILD CAVERNS 

66 GOSUB S6@:REM FILL ARRAYS 

7@ GOSUB 866:REM HIDE INHABITANTS AN) TR 
EASURES 

a6 O=Z2G:REMN TIMER 

% Y=1:X=0 

166 CLS 

11@ REM MAJOR GAME CYCLE 

120 GTO 246 

13@ CLS? PRINT "GOGO OOOO CK RE 
KKAKKKK" 

14@ PLAT" TZ6L4U3603GA" 

15@ O=Q-1:IF Q<]1 THEN 1410 

164 PRINT ?PRINT "TIME REMAINING:" 50 

176 PRINT?PRINT TAB(E) "YOU ARE IN CAUER 
NY 

18@ IF X>}@ THEN PRINT "YOU HAVE COME FRO 
M CAVERN’ 3x 

19 IF RS$(1I>"" OR RFCZI>"" OR R$(B)>0" 
OR R$(4)>"" THEN PRINT “YOU ARE CARRYING 
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204 z=] 

214 IF RSCZ)>°° THEN PRINT 23" - "jR8(2) 
224 IF 2<4 THEN 2-2+]:G0TO 214 

234 RETURN 


244 GOSUB 134 

250 IF LEN(FS(¥))=@ THEN 442 

260 PRINT:PRINT “THE CAVERN CONTAINS A" 
2PRINT FS(1) 

270 IF INKEY$<>"" THEN 270 

280 PRINT:PRINT "00 ‘YOU WANT IT C1/N)" 
230 OS=INKETS 

300 IF G8<>"¥" AND G$<>"N" THEN 298 

314 IF @%="N" THEN 444 

320 IF R8¢1I="" OR R¢CZI="" OR RSC3)="" 
OR R${4)="° THEN 484 

330 PRINT “YOU ARE CARRTING TOO MUCH” 
344 INPUT “WHICH ITER OD TOU WISH TO DRO 
PY 3S 

350 IF 5¢!1 OR S>4 THEN 344 

360 T4=R$(5) 

378 RS(S)=F S61) 

380 Fscy)="" 

394 GOTO 43a 

406 G=] 

410 GF R8(G)~"" THEN R8{GJ=FSC(7) sFSCTJ=" 
“:GOTD 434 

420 IF G<4 THEN G=G+1:GOTO 414 

434 GOSUB 134 

440 IF LEN(OS(YJ)=@ THEN 65 

45@ IF ASCCOS(TII=42 THEN 814 

460 PRINT:PRINT "THERE [5 @ “30S(133" HE 
REr"3PRINT "WHO "3 

478 FOR TT=t T0 5 
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480 PLAY "T1QQU3Q03AFGAFGAFG" 
490 FOR OO=1 To 10:NEXT OD 

$00 NEXT TT 

S18 PRINT "WANTS A "3E$CYJ:PRINT "TO LET 
YOU PASS" 

$28 FOR OO=1 TO 2@00:NEXT O00 

538 G+] 

540 IF RCGI-ES(T) AND ES(Y)<>"" THEN 68 
Q 

S58 IF G<4 THEN GeGrl :GOTO 540 

S60 PRINT:PRJNT "TOU MUST RETURN TO"$X 
$78 FOR OO=1 TO 300@:NEXT OD 

SBQ PRK Ke Yr YxP 

$98 GOTO 240 

6@@ PRINT "AND YOU HAUE IT?" 

610 FOR OO=1 TO 20Q0:NEXxT O0 

620 PRINT "THE "308C'J;" UANISHESS" :08CY 
rai 

630 FSCY)=R(G) 

640 RS(G)="" 

650 PRINT:PRINT "TUNNELS LEAD TO"3ACY,2) 
SALY,2I5ACY33)3ACY34) 

662 PRINT:INPUT “WHERE 00 YOU WANT TO GO 

“nm 

670 IF M=Q THEN Q=Q-S:M=}+RNDCIB) ‘GOTO 2 

20 

680 G=l 

690 IF ACY,GJ=M THEN 220 

700 IF G<4 THEN G=Gt1:GOTO 639 

710 GOTO 560 

220 XRY 

730 Y=n 

240 IF Y=20 THEN 260 
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750 GOTO 246 
760 REM SUCCESS 
770 CLS 
786 FOR DD=i TO 3@:PRINT TAB([DD) “A":PLA 
Y "U3GT2ZQG03AFGO4CEDOIGFA":NEXT DD 
?9@ PRINT "YOU HAYE MADE FTge" 
860 GOTO 1280 
€@1@ REM TELEPORTATION 
€@20 FOR DD=1 TO 3@:PRINT TAB(DD) "4" :PLA 
Y “U3@T25@03AF GO4AFGOSAFG":NEXT DD 
a30 x=T 
8490 Y=RND(9)+98 
as@ GOTO 24a 
8606 REM DISTRIBUTE FNHABITANTS TREASURES 
€@76 FOR E=1 TO 16 
886 F=RND( 18) +2 
896 D&(FIJ=BS(RNDC2G)):REM INHABITANTS 
960 ES(FI=C#(RND(20)):REM BRIBES 
910 F=RND(20) 
920 FCF) =C#C(RNDC20)):REM CAYERN CONTENT 
5 
936 IF RNDC1Q@)>9 THEN OS(FJ="*%" REM TELE 
PORTAT ION 
940 NEXT E 
95@ RETLRN 
966 REM CREATE CAVERNS 
97@ PRINT:PRINT:PRINT "STANBY AS I HIDE 
THE TREASURES, ." 
Sa@ FOR D=1 TO 26 
99@ READ BS¢D) 
1606 NEXT D 
1016 FOR D=1 TO 26 
1@2a@ READ C#£0) 


98.0, Beg 
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1630 NEXT D 

1640 RETURN 

1056 REM CONSTRUCT CAVERN 

1666 PRINT:PRINT "STANDBY AS I CONSTRUCT 
THE CAUE" 

1676 FOR B=l TO 26 

1986 PRINT TABCB) "x" 

1096 FOR C=] TO 4 

1160 ACB, CJ=BtRNDC7 J-RNDC6) 

1116 IF ACB, CI=8 OR ACB, CI<1 OR ACB, CI>2 

@ THEN 1180 

1126 NEXT C 

1130 IF ACB, 1j=ACB,2) OR ACB, 1)=ACB;3) D 
R ACB, 1)=ACB,4) OR ACB, 2)=ACB,3) OR ACB, 
32=A(B,4) OR ACB, 2)=ACB,4) THEN 1098 
114@ IF RNDC1@)<2 AND B>12 THEN ACB, RNDC 

43)=20 

1150 NEXT B 

1166 Ss 

1170 RETURN 

118@ REM INHABITANTS 

1194 DATA HAIRY |IOBGOBLIN, BALD BERSERKER 
»SKINNY SKELETON, GRUESOME GNOME, CUNNING 

CONJURER 

1206 DATA CRAZY CENTIPEDE,DEMENTED DWARF 
» SAVAGE SHRIEKER, CREEPY CRAWLIE, ROTTEN R 

ODENT 

1214 DATA TERRIBLE TOAD, STICKY STURGE, GH 

ASTLY GHOUL,WICKED WEASEL, LUMPY LEGEND 
1226 DATA ZANY Z2OMBIE,CROOKED CRAB, WRATH 

FUL WRAITH;WEIRO WEREWOLF,;GIANT GARGOYLE 
12346 REM THE LOOT 
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12@4@ DATA PIECE OF COPPER; MITHRIL COIN.P 
LATINUM SHIELD; COPPER HEADBAND; MAGIC SCR 
OLL 

125@ DATA FABLLOUS POTION; WAND OF HEALIN 
G,;SWORD OF FIRE,SPARKLING ANULET,WAR HAM 

MER 

126@ DATA PIECE OF COPPER; MITHRIL CGIN:P 

LATINUM SHIELD; COPPER HEADBAND, MAGIC SCR 

OlL 

127@ DATA FABULOUS POTION,WAND OF HEALIN 
G, SWORD OF FIRE;SPARKLING ANULET;WAR HAM 

NER 

1288 FOR DD=1 TO 15@@:NExT DD 

1298 CLS RNDCa) 

1308 PRINT@ 192, TABCZ) "YOUR CAVERN MAS 
TER RATING IS" 

1318 PRINT TABC1Z) 18840 1@8-Q)+2x0 

1328 FOR TT=1 TO 5 

1338 PLAY "T2S8V3G02GAF GAF O4C EDUZGAF" 
1348 FOR DD=1 TO 1S:NEAXT DD 

135@ NEXT TT 

1364 IF R$C1I>"" OR R$CZI>"" OR RFCBI" 
OR R$(49>"" THEN PRINT “YOU LEAYE WITH: 
1378 FOR T=1 TO 4 

13a@ PRINT TABC6) R#C(T) 

1398 NEXT T 

1448 GOTO 1488 

141@ FOR OD=1 TO 15@@:NExT OD 

1428 PLAY “TS@U3G01FGFGACACOZDEDECDCDOIA 

FAF GFGF AAR” 

1438 CLS@ 

144@ FOR DD=1 TO S@G:NExT OD 
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1450 FOR TT=i TO 18 

1460 PLAY "T25BU3202AFGO1GFAOZAFG" 
1478 FOR OO=i TO 18:NEXT OD 

1488 NEAT TT 

1498 FOR TT=1 TO 1B 

1500 PRINT@ 192, TABL2Z] "SORRY, FRIEND B 
UT TimME IS UP” 

1518 FOR ON=1 TO 26@:NEXT OD 

1528 PRINT® 152; " " 

1538 PLAY “T25@U3@03ACEGO2GFACODE” 

1548 NEXT TT 

1558 PRINT@ 192; TeBCB] “YOU ARE FINISHE 
o" 

1568 PLAY "T2BtI3@02AF GDECO 1 GFRFAFAF" 
1578 GOTO i872 

1588 CLS RNIC8) 

1598 GG=128 

1628 PRINTG GG; “A” 

1618 PLAY “T268U3B04ACDFOSGFAO3GFAO" 
1628 GG=GG6+2 

1638 IF GG<i59 THEN GOTO !6ae 

1648 PRINT@ 192, TABC2)] “CAVERNS OF THE 
SHADOW THiEVES" 

1659 GG=256 

1660 PRINT@® GG; *x* 

1678 PLAY “T22GU3B05ACDFC3GFAC4GFAN” 
1683 GG-GG+2 

1690 IF GG<287 THEN GOTO 1660 

17288 RETURN 


Valley of the Undead 


You and a companion have ventured into the Valley of the 
Undead, intent on searching the many caves and tunnels for 
the many treasures which are supposed to be lying around 
waiting to be picked up. Unfortunately, the two of you have 
become separated in the darkness. Suddenly you hear a 
scream, your companion has become trapped in a cave and 
you must get to him before the zombie does. Because of the 
twisting, turning passages, you are not always able to tell 
which direction the screams for help are coming from. As an 
added danger, there is always the chance that the zombie will 
ignore your friend and come after you! 

After each turn you will be asked which direction you wish 
to go. The code for your input is: 


"TL? = left 

tRi = right 
ayy? = up 

“D" = down 
“F" = forward 
“BY = back 


Line 20 sets up the starting position of your lost friend and 
line 30 gives you your starting position. 

Lines 400 to 490 check your position against the position of 
your companion after each turn and give you the clues you 
need. 

Variable CC keeps a count of the number of turns left in the 
game. CC is set in line 50, decremented in line 500 and then 
tested in line 620. When CC equals zero, we then go to the end 
routine which gives you the bad news that you were too late to 
save your friend. 
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Line 390 provides the one-in-a-hundred chance that the 
zombies will find you before you find your companion. 

This program uses the system of a three-dimensional grid 
{actually an array), selecting a point inside it and then provid- 
ing some form of feedback so that the point can be located. In 
this way many different games can be created. All you need to 
do is to create an exciting scenario to provide the interest and a 
method for providing some form of directions 10 the searcher. 
Try using this method to create games of your own. 


1@ REM VALLEY OF THE UNDEAD 

20 A=RNOC1Q) :B=RNDCIG) + C=RNDCIO) 

3@ X=RND(1Q) + Y=RNDC 10) :2=RNDC1 4) 

40 CLS 

5@ CC=16 

66 PRINT "TOUPVE GOT LITFLE TIME IN WHIC 
H" 

70 PRINT "TO FIND AN EXPLORER LOST WITHI 
NV 

86 PRINT "THE YFILLEY OF THE UNDEAD" 

90 PRINT:PRINT "COCICICICICICICICICICIC) 
Cyc3cicy” 

10@ FOR DD=)] TO 16@6:NEXT DD 

116 PRINT@ 160, "HE IS TRAPPED IN THE 2) 
MBIE?S™ 

126 PRINT "CAVE,.AND HAS ONLY A SHORT TI 
ME" 

136 PRINT "BEFORE THE ZOMBIE KILLS HIM? 
pu 

i4@ PRINT “YOU CAN TELL APPROXIMATELY bH 
ERE" 

156 PRINT@® 288, “HE IS BECAUSE HIS SCREA 
Ms LEAD 
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166 PRINT "YOU CNWARD AND UPWARD AND LEF 
T AND....” 

176 FOR OO=t TO 166@:NEXT DD 

18@ PLAY "OSTSLSQ@EEEFFF GGG" 

196 FOR DD=1 TO 5@@:NEXT OD 

200 PRINT “IS THAT A SCREAM I HEAR?" 

210 PRINT?PRINT TABC1) "C€I0I0I0I030)010) 
€303037020)C1¢3" 

220 PRINTB 448, “hit any key to cont Inue 
230 HI#=INKEY* 

240 IF HEs="" THEN GOTO 236 

250 FOR xxX=) TO 16 

266 SOUND 10,1 

270 PRINT 

28Q NEXT Xx 

290 CLS 

304 PRINT TAB{S) “yes it wasg?" 

316 FOR DD=1 FO 10@:NEXT DD 

32@ PRINT:PRINT “HOWEVER THE SOUND IS MU 
FFLED AND" 

33@ PRINT@ 96, "YOU CANNOT ALWAYS TELL E 
xACTLY" 

34@ PRINT "WHERE IT 1S COMING FROM....” 

356 FOR GN=1 TO 166@:NEXT OD 

360 PRINT " CICICICICIVIIO OOOO 
ca 

370 PRINT:PRINT “THE SCREAM APPEARS TO B 
E COMING FROM....." 

3a@ FOR DDO=1 TO 26@:NEXT DD 

390 IF RND(1@@)=1 THEN GOTO a6a 

406 IF RNDC1@)>6 THEN LH=LH+1:GOTO 430 
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41@ IF X>B THEN PRINT “BELOW YOU" :FOR DD 
=1 TQ S@:NEXT DD:SOUND 100, 1 
420 IF X<B THEN PRINT “ABOUE YOU"sFOR 0D 
=1 TO S@2NEXT DD:SQUND190, | 
430 IF RNDC10)>6 THEN LH=LH+1]:GOTO 460 
440 IF 2>C THEN PRINT "TO THE LEFT" :FOR 
DD=1 TO S@:NEXT DD:SOUND 100,1 
450 IF 2<C THEN PRINT "TO THE RIGHT" :FOR 
DD=1 TO S@:NEXT DD:SOUND 100, 1 
460 IF RND(19)>6 AND LH=2 THEN GOTO 490 
470 IF YCA THEN PRINT "AHEAD OF YOL":FOR 
DD=1 TO 5Q:NEXT DD:SOUND 100,1:G0TO 500 
480 IF Y>A THEN PRINT "BEHIND YOU":FOR D 
D=1 TO S@:NEXT DD:SOUND 100,1:G0T0 500 
490 IF LH=2 THEN PRINT "YOU CANT TELL WH 
ERE HE IS22" 
500 CC=CC~1 :LH=0 
51@ PRINTSPRINT "YOU HAVE" 3CC ;"MINUTES L 
EFT! 
520 PRINT:PRINT "YOU ARE SEARCHING THE C 
AVE" 
530 PRINT "WHICH WAY DO YOU WANT TO GO" 
540 INPLT “(U,DsRiL>F.B)" 3As 
950 IF AS="U" THEN X=X+1:IF X10 THEN X= 
10 
S6@ IF AS="D" THEN X=X-1:(F «<1 THEN x=1 
S70 IF AS="R° THEN 2=2+1:7F 2>1@ THEN 2= 
10 
58Q IF AS="L" THEN t#z 
590 IF AS="F" TREN Yer+ 
10 
600 IF AS="B" THEN YeY=l:IF Y<1 THEN Y=l 
610 [F X=b AND C=2 AND A=Y THEN GOTO 750 


‘TF 2<1 THEN 2=) 
‘TF Y>1@ THEN Y= 
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62a IF CC>1 THEN CLS-GOTO 36a 

634 CLS 3 

644 PRINT@ 128, TAB{G63 “your triend is d 
ead" 

650 FOR XxX=1 TO 5 

660 SOUND 290-&R,S5t1 

670 RR=RR+3G 

680 ss=SSstl 

69@ NEXT Xx 

704 PRINTS 256, TAB{S} “YOU HAVE FAILED" 
21@ FOR XxX=1 TOS 

?2@ SOUND RR;2 

730 NEXT XX 

244 GOTO 244 

750 CLS 2 

760 FOR Xx=1 TO 3 

27a SOUND 144; 1 

?8@ SOUND 15a, 1 

790 SOUND 24a; 1 

80a SOUND 254; 1 

B1@ NEXT Xx 

820 PRINT@ 160; TARC?) “you have found h 
im“ 

83a FOR O0=1 TO 24@:NEXT OD, 

84a PRINT@ 324, TAB(3) “WELL DONE,FAI THF 
UL FRIEND" 

85a GOTO 85a 

860 CLS a 

870 PRINT@ S96, TABC3I “THE ZOMBIES HAVE 
FOUND YOu" 

88a FOR Xx=] TO 1a 

894 SOUND 200,2 

90@ NEXT Xx 
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910 PRINT@ 192, TABCS) “THEY HAVE CAUGHT 
yous" 

920 FOR XxX=1 TO 16 

938 SOUND 260,2 

94@ NEXT XxX 

950 PRINT@ 28a, TAB(1) “YOU HAVE DIED, BR 
AVE ADVENTURER" 

966 PLAY "O1LTILS@GGGGGGFFFFFFFFFFEEEEEEE 

EEEEEEEE" 

978 GOTO 970 


Just for Fun 


Gridiron 


Here we have a computer version of the American football 
game, Gridiron. The program gives you the opportunity to 
test your athletic skills against the Super Rams, a computer 
Gridiron team that is very hard to beat. 

The object of Gridiron is to gain ground against your 
opponent. You have four turns, or ‘downs’, to carry the ball 
and to try and make a gain of ten yards. If at the end of four 
downs you have not made ten yards, or if at any time you have 
lost possession of the ball, it is then your opponent’s turn to 
carry the ball and to try to make ten yards. If you, at any time 
during your turn, gain ten yards, then you have made ‘first 
down’ and begin your turn again. 

In the real (non-computer version!) game of Gridiron, if a 
team hasn’t gained ten yards after three downs, it is usual, 
though not compulsory, to kick the ball. This puts the ball as 
far down field as possible for when your opponent takes 
possession. In the computer version, the computer will auto- 
matically kick the ball, both for you and itself, if ten yards 
haven’t been gained by the end of the third down. It is 
possible to score points at this stage by kicking a field goal if 
you are close enough to the goal line to do so. The computer 
will also take care of this for you. 

Itis possible for the opposing team to take possession of the 
ball at any time by intercepting one of your plays. 

All the information you require to play Gridiron is displayed 
on the screen along with prompts from the computer when it 
is waiting for you to have your turn. You will also be provided 
with a graphic display of the playing field showing the position 
of the ball. 

When it is your turn to carry the ball, you have a choice of 
three different plays. 
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1. This is a relatively conservative play. It will gain you the 
least amount of ground but with the lowest risk of an 
interception. 

2. This play will give you good gains but with a higher risk of 
losing possession of the ball. 

3. This is a spectacular play which will gain you a lot of 
ground but with a very high probability that your opponent 
will intercept the ball. 


Please note that it is possible to lose ground on a play. This 
happens when your opponents push your player back from the 
line of scrimmage. 

To score points, the ball must be carried over the goal line 
for a touchdown. This results in a score of six points. Then 
follows the kick for goal or conversion. If successful, you 
gain an extra point. A field goal from a punt is worth three 
points. 

A real game of Gridiron is played for four fifteen-minute 
quarters. Our computer version finishes after 100 plays have 
been made. 


12 REM GRIDIRON 
22 GOSUB 1472 

38 GOSUB 72 

42 GOSUB 2320 

58 GOSUB 462 

628 GOTO 4820 

22 CLS ? 

eo GOSUB 1680 

30 FOR EE=1 TO 12 
108 FF=RNDC492) 
118 POKE 1823+FF 542 
122 SQUND 188,2 
130 GOSUB 1680 





148 
150 
1628 


31278 
188 
138 
2228 
218 
220 
233 


252 
2608 
2708 
280 
238 
3208 
3128 
3228 
332 
348 
3508 
368 
372 
380 
339 
4298 
4128 
428 
438 
448 
459 
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NEXT EE 


PRINT 
PRINT@ 32+ND, TABCS) “x*Xgr id it on XXX 


GOSUB 1530:GOSUB1660 
PRINT 

ND=ND+64 

GG=GG+1 

1F GG=8 THEN RETURN 
GOTO 168 

CLS 

FOR AA=B TO 159 
POKE 1344+AA; 175 
NEXT AA 

POKE 1381+BB,153 
IF BB<13 THEN 3228 
IF BB<63 THEN 332 
IF BB<83 THEN 3428 
BR=0:GOTO 350 
BR=20:GOTO 2708 
BB=64 :GOTO 270 
BR=84:GOTO 278 
FOR AA=1 TO 1) 
POKE 1369+AA+BB; 96 
NEXT AA 

BB=BB+32 

1F BB=162 THEN 418 
GOTO 3528 

FOR AAR=1 TOS 

POKE 1343+AA, 96 
NEXT AA 

GOSUB 15108 

RETURN 
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462 IF RNOC1QB)<6 THEN PL=1 

470 RETURN 

482 GOSUB 1220 

490 T=T-1:1F T=0 THEN 972 

582 GOSUB 1228 

510 PRINT@ 64, “SUPER RAMS"5S23,”"TIME="5 
T3PRINT 

520 PRINT “HUMAN TEAM" 5513, “OOWN="0N 
5328 GOSUB 16280:PRINT 

542 PRINT "YAROS TO MAKE FOR FIRST OOWN" 
30G*5 :PR INT 

958 IF PL=]1 THEN PRINT “ITS MY BALL" :GQT 
0 5270 

S60 PRINT "ITS YOUR BALL":GOTO 620 

572 B=RNOC3) 

582 IF OG>1 THEN B=B+] 

538 IF ON=3 THEN B=3 

602 IF B>3 THEN B=3 


6128 GOTO 660 

620 PRINT@ BO, “CHOOSE YOUR PLAY"; 

632 INPUT B 

642 IF B<} OR B>3 THEN 6228 

6528 GOSUR 1569 

660 LC=RNO(16) 

672 IF LC~B<2 THEN GOTO 330 

680 IF LC+B<10 THEN DG=0G:YG=0:ON=ON41 +8 
$="PLAY" :GOTO 728 

690 IF LO+B<14 THEN OG=0G-1:YG=) :ON=ON+] 
?BS="GAIN":GOTO 220 

708 IF LO+B<I6 THEN OG=0G-(B+13:YG=B+):D 
N=ON+] ¢BS="GAIN" :GOTO 722 

710 IF LC+B>15 THEN OG=0G+1 :7G=—-1 :ON=ON+ 
1:BS="LoOss" 

728 GOSUB 1568 
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730 PRINT@ 8; “ITS A*;ABSLYGKSI$"YARO “B 
$:GOSUB 1530:GOSIJB 16428 
?48 GOSUB 14928 
250 IF PL=8 THEN DI=DI+7G 
760 JF PL=] THEN 0J=01-YG 
270 IF O1¢? OR O1>25 THEN GOTO 1240 
780 GOSUB 1518:GOSUB 1560 
2390 IF OG=<Q@ THEN ONG=2:DN=1:FOR X=) TO 4 
+GOSUB 1530:NEXT X:GOSUB 16528:PRINT@ 2," 
FIRST DOWN" :GOSUB 16508:GOSUB 1568:GOTO 4 
80 
800 IF ON<4 THEN GOSUB 1642:GOTO 480 
810 PRINT@ B, "FORCED TO PUNT" :GOSUB 165 
B:GOSUB 15328 
820 GOSUB 1569 
830 PUSRNOCSI+S 
840 PRINT@ 2B “ITS A"3SPUXS$"TARD PUNT" ?G 
OSUB 1659 
850 GOSUB 1490:GOSWB 1562 
860 IF PL=1 THEN O1=DI-PU 
870 IF PL=8 THEN OJ=01+PU 
880 IF O1<? OR 04525 THEN GOTO 1360 
8928 GOSUB 1510 
988 ON=i1:0G=2:PL=ABS{PL~1] 
318 GOSUB 1652 
328 GOTO 482 
330 PRINT@ B, “interception” :x=O:FOR x=] 
TO 5:GOSUB IS3Q:NEXT X 
5348 GOSUB 1648:GOSUB 15628 
358 PL=ABSCFL-1] :DN=1 :0G=2 
362 GOTO -480 
378 CLS B 
380 PLATT 1OSLASEEEEEEEEEEGGGGGGGGBRRRBRB 
“ 


OB. Ob. b—_6 
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990 PRINT TABC8) “THE GAME IS OVER” 
1088 PRINT 

1810 PRINT TABC8) "SUPER RAMS-";S2 
1922 PRINT 
12830 PRINT TABC8) “HUMAN TEAM-" 351 
10428 PRINT 
1950 IF $S2>S1 THEN GOTO 1159 
1068 1F $)>S2 THEN GOTO 1192 
1978 PRINT 
1282 PRINT TaAB(11) “ITS A DRAW” 

1030 GOTO 19399 

1188 FoR AAm=1 TO 3 

1110 PRINT TaBliz) “YOU WONe" 

1120 SOUND 202;1 

1138 NEXT AA 

1148 GOTO 11428 

1158 FOR AA=1 TO 3 

1168 PRINT TABC13) “I WONg” 

1178 SOUND 52;1 

1180 NEXT AA 

1190 GOTO 1139 

1200 FOR x=1 TO 3 

1218 POKE 1304,96 

1228 NEXT X 

1230 RETURN 

1248 GOSUB 1560:PRINT@ 8, "TOUCHDOWNS eo" 
?%=B:GOSUB 1669 

1250 GOSUB 1530 

1260 x=X+1: IF x=18 THEN GOTO 12820 

12728 GOTO 1258 

1280 GOSUB 1650:GOSUB 1569 

12390 IF RNDC1B)>1 THEN 1312 
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1302 PRINT@® @,"MISSED THE CONVERSION" =G0 
SUB 164@:AN=6:GOTC 1320 


1318 PRINT@ @, “ITS CONVERTED" :AN=? :GOSu 
B 1640 

1328 IF DI<? THEN S2=S2+AD 

1332 IF Dl1>25 THEN S1=S1L+AD 

134@ PL=ABSCPL-1):0G=2 :0N=] :DI=16 

135@ GOSUB 151@:GUTO 4382 

1368 PRINT@® @, "FIELD GOAL ATTEMPT" :GOSU 
B 1642 

1378 GOSUB 1562 

1388 IF RNDC1@1>5 THEN GOTO 1420 

1392 PRINT@ @; "MISSED" :GOSUB 164@:AN=e: 
Gota 14128 

1988 PRINT@® @, "SUCCESS" :GOSUB 1694@:AN=3 
1418 IF 01>25 THEN Sl=S1+AD 

1428 IF D1<?_ THEN S2=S2tAD 

1438 GOSUB 1560 

14948 PL=ABSCPL-1) :0G=2:01=16:0N=1 

1450 GOSUB 1512 

1460 GOTO 480 

147@ T=10@:0N=1 :0G=2 

1488 Of=16:RETURN 

1492 POKE 14@7+0f,175 

1588 RETURN 

151@ POKE 14@7+D1; 106 

152@ RETURN 

1532 SOUND 2700,2 

154@ GOSUB 1680 

1558 RETURN 

156@ FOR JJ=1 To 31 


1578 
1582 
1592 


POKE 1023+JJ,36 
NEXT JJ 
RETURN 
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1680 FOR JJ=1 TO 2 

1610 POKE 1246+JJ,96 

1626 NEXT JJ 

1638 RETURN 

1640 FOR DD=1 TO SQB:NEXT DO 
1650 FOR 00-1 To 25@:NEXT OD 
1660 FOR DD=1 TO 15@:NEXT OD 
1670 FOR DO=1 JO SQ:NEXT OD 
1688 FOR DD=1 TO 18:NEXT OD 
1690 RETURN 


Mini Golf 


We are now moving on to the nine-hole golf course cleverly 
hidden inside your computer. 

You will be able to drive down the fairway, play a chip shot 
on to the green and then putt accurately to come home under 
par. Be sure to avoid the sand trap, and don’t overshoot the 
green. Both of these mishaps will result in a one-stroke 
penalty. 

Lines 320 t0420PRINT up all the relevant information you 
will need to play each hole. 

Line 340 tells you which hole you are currently playing and 
the number of shots you have taken for the hole so far. 

Line 369 tells you the par for the hole and the total number 
ofshots you have taken up to that point. 

Line 38@ tells you the distance to the hole. This is most 
important because you will need this information to choose the 
club you need for the next shot. You have a choice of six clubs: 
by pressing the keys from “1” to “5S” you can hit a 25-yard 
drive (key number “‘1’’) or a 50-yard shot to the green (key 
number “8’) or anything in between. By using the “‘” you 
can play a 20-yard chip shot on to the green when a “5S” would 
hit too far. 

Your club selection is registered by lines 430 to 510. 

Lines 530 10 640 then workoutthe distance you have hit the 
ball, depending on which club you have used. 

Line 670 adds one to the number of shots you have taken. 
The GOSUB 1118 provides the sound of the ball being hit. 

Line 680 checks to see if the distance you have hit (DH) 
equals the distance to the hole (HD) If it does, you are then 
congratulated for hitting the ball into the hole. 

Line 950 checks to see if you are on the green. If so, we then 
go to the putting routine beginning at line 1130. Once again 
you are given all the relevant information you will need, 
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including the distance to the hole. You are now using your 
putter and have to decide how hard you are going to hit the 
ball “1” to “5”), Number “!” is a gentle tap in less than one 
yard from the cup and number “5” is a 20-foot putt from out 
near the edge of the green. 

After nine holes of golf you will be told how well your score 
compares with the par for the course. 

We are sure that Mini Golf will provide you with many 
hours of fun and healthy outdoor exercise without ever leaving 
your keyboard! 


18 REM MINI GOLF 

28 GOSUB 1820 

38 GOSUB 100 

42 GOSUB 130 

5@ GOSUB 240 

68 GOSUB 320 

7@ GOTO 420 

80 END 

92 CLS 

10@ PRINT@ 192, TABC2) "WHAT IS YOUR NAM 
E”;:INPUT Bs 

1108 CLS 

120 RETURN 

132 FOR AA=1 TO 160 
14@ POKE 1375+AA;32 
15@ NEXT AA 

160 FOR AA=1 TO 5S 

172 POKE 1380+A+B, 255 
180 B=B+32 

130 NEXT AA 

200 IF A=1 THEN GOTO 220 
218 A=1:B=8:GOTO 168 


228 
230 
248 
258 
260 


270 


288 
2398 
308 
318 
328 
330 
340 
358 
360 
378 
388 
338 
4008 
4108 
4208 


430 
4428 
450 
460 
470 
480 
498 
508 
5108 
5208 
5308 


Mini Golf 
POKE 1441,48 

RETURN 

HN=HN +2 

HD=RND(450)+100 

G=INTCHD/39) 

IF HD<175 THEN PA=3:GOTO 300 
IF HD<425 THEN PA=4:GOTO 300 
PASS 

PC=PC+PA 

RET URN 

PRINT@ @, “PLAYER: "3B 
PRINT 

PRINT “HOLE "3HN, "SHOTS “>NS 
PRINT 

PRINT "PAR "3PA,"TOTAL "3SU 
PRINT 

PRINT "DISTANCE TO HOLE="j5HD 
PRINT 

PRINT "PAR FOR COQURSE= ~ SPC 
RETURN 
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PRINT@ 320, "WHICH CLUB WILL YOU USE 


Es=INKEYS 

IF Es="" THEN GOTO 420 
GOSUB 654 

IF E%="5"° THEN GOTO 530 
IF Es="4" THEN GOTO 550 
IF E$="3" THEN GOTO 578 
IF E#="2" THEN GOTO 5390 
IF ES="]" THEN GOTO 610 
IF E$="2" THEN GOTO 630 
GOTO 426 

DH=RND(20)+ 40 


96 

543 
550 
563 
578 
582 
5328 
620 
618 
620 
6309 
640 
650 
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GOTO 672 
DH=RND[40) +80 
GOTO 672 
DH=RND(6QI)+120 
GOTO 670 
DH=RND(80) +168 
GOTO 672 
DH=RNDC100)+200 
GOTO 670 
DH=RNDC101+130 
GOTO 672 
PRINT@ 328; " "TREM 


? SPACES 


663 
673 
630 
6928 
722 
718 
728 
730 
740 
730 


RE TURN 

NS=NS+1:GOSUB 1118 

JF DH=HD THEN 7428 

HS=HD+ 28 

HO=HD-DH 

JF DHDHS THEN 810 

GOSUB 1890 

GOTO gaa 

CLS 

PRINT@ 192; TABCS) "## ITS IN THE HO 


LE #8" 


763 
778 


280... 


738 
(-14)4) 
810 
820 
THE 
830 


FOR H=t TO SQ:NEXT H 

SOUNE, 10,1 

JeItl) 

IF [=5 THEN f=8:CLS:GOTO 1538 

GOTO 7428 

tls 2 

PRINT@ 192, TABC3) "YOU* VE OVERSHOT 
GREEN" 

GOSUB 1870 


84a 
854 
86a 
874 
88a 
834 
3aa. 
3GOT 
314 
3248 
334 
344 
354 
364 
974 
384 
334 
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PRINTS 288, TABCS) “PENALTY STROKE” 
GOSUB 1474 
NS=NSt] 
CLS 
HD=~24 
GOTO 1130 
IF Y=27 OR Y=26 THEN-POKE 1471-Y,255 
QO 324 
POKE 1471-Y; 32 
K=INTCDH/G) 
YHYtK 


POKE 1471-7342 

IF HD<2@ THEN 1134 

IF Y=2? OR Y=26 THEN GOTO 394 

GOSUB 324 

GOTO 424 

PRINT@ 320, “YOU ARE IN THE BUNKER" 


1444 GOSUB 1474 

1414 GOSUB 654 

1420 PRINT® 320, "PENALTY STROKE” 
1434 GOSUB 1474 


1444 


GOSUB 654 


1454 NS=NS+1 

1464 GOTO 6a 

1474 FOR DD=!1 TO 14@@@:NEXT OD 

148@ RETURN 

10494 PRINTS 178, ” “3REM FOUR SPACES 


1140 


RETURN 


111@ SOUND 5,1 


1120 


RETURN 


1134 CLS @ 


1144 


PRINT@ 1932, TABiG) “YOU ARE ON THE 


GREEN* 


11548 
1164 
1178 
1184 
11948 
1288 
12148 
1228 
1238 
1248 
1258 
12648 
1278 
12a 
1238 
13488 
1314 


a 
1328 
1338 
1348 
1358 
1364 


1378 
13aa 


1398 
418 

1488 
1418 
1428 
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PLAY “T2@GU3 AO3GGAAFFCCDEF G" 

GOSUB 14 

cLs 

LL=1216 :8B=1236 

FOR xxX=LL TO BB 

POKE %%, 32 

NEXT %% 

LL=LL +32 :BB=BBt32 

IF LL91584 THEN GOTO 12548 

GOTO 11398 

POKE 1386, 48 

PRINT@ @, "PLAYER: ";Bs 

POKE 1386+ INTCHD/2),42 

PRINT 

PRINT "DISTANCE TO HOLE: ";ABSCHD) 
PRINT :PRINT "NUMBER OF SHOTS? "3NS 
PRINT@ 160, "FORCE C PUTT C1 TO 5) 


G$ = FNKE YS 

IF Gé="" THEN 1328 

SOUND 18,1 

IF Gé="1" THEN PP=1:GOTO 1418 

IF G$="2" THEN PP=RND(2Z)+1:GOTO 141 


IF G$="3" THEN PP=RND(C4)+*3:GGTO 141 
IF G$="4" THEN PP=RND(6)+5:GOTO 141 
IF G¢="5" THEN PP=RND(14)+1@:GOTO 1 
GOTO 13148 


POKE 1386+INTCHD/2),32 
IF HO>9@ THEN HO=HO-PP:GOTO 1448 
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143@ IF HO<@ THEN HO=HO+PP 
1440 IF HO=@ THEN GOTO 1470 
145@ NS=NS+1 
146@ GOTO 1260 
1474 SOUND 1@;1 
148@ NS=NStl 
149@ CLS 
15@@ FOR OD=1 TO 1@@:NEXT OO 
152@ PRINT “YOU HAYE HOLEO YOUR PUTT” 
1520 PRINT?FOR OO=1T0 2@@:NEXT 0D 
1530 PRINT "SHOTS FOR THIS HOLE='"';NS 
154@ PRINT:?:FOR 004170 2@@:NEXT ODO 
155@ PRINT “PAR FOR THIS HOLE WAS" ;PA 
1566 PRINT?FOR OD=1T0 2@@:NEXT DO 
1570 FOR OD=1 TO 2@@:NEXT DD:?PRINT "PAR 
FOR THE COURSE SO FAR";PC 
158@ SU=SU+NS:NS=@ 
153@ PRINT:PRINT “SHOTS SO FAR’;SU 
160@ PRINT:PRINT “ THIS WAS HOLE NUMBER" 
sHN 
161@ PRINT?FOR DO=21TO 2@@:NEXT DO 
162@ PRINT:?:PRINT TABCE6) “any key to cont 
Inue” 
1630 S#=INKEYs 
1640 IF S#="" THEN 1630 
1650 A=@:B=@:Y=0 
1660 IF HN=>3 THEN 1680 
1670 CLS:GOTO 4@ 
1686 CLS:PRINT@ 192, “YOUR SCORE WAS"; 
169@ FS=PC-SuU 
17@@ IF FS>@ THEN PRINT FS$"STROKES [INDE 
R PAR" :GOTO 173@ 
1710 IF FS8&@ THEN FS=ABS(FS):PRINT FSi"S 
HOTS GUER PAR’ :GOTO 173@ 
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1720 IF FS=@ THEN PRINT “ EVEN WITH PAR" 
1730 FOR O0=1 TO 200@:NEXT DO 

1748 CLS 

1758 SOUND 25,2 

1762. PRINT@ 132, TABLE) “ANOTHER ROUND ( 

TANI" 3 

1772 SCREEN 9,1 

1780 AS=]NKETS 

1730 IF Ag="" THEN 1780 

1800 IF ASO"T" THEN PRINT@ 256, TABCIZ) 
“good bye" :GOTO 1800 

1810 RUN 

1820 CLS 

1830 FOR T=1 TO 3 

1848 PLAY “T2Q8L1B8BU3B05AGOF EAC GF AEGG" 
1850 NEXT T 

1860 GG=2:FF=30 

1870 FOR TT=1 TO 15 

1880 PRINT@ GG; “X"-PRINT@ FF; “x"S 

1890 PLAY “T258U3802GAFGO3AGA0ZF FG" 

1980 GG=GG+34 >-FF=FF+30 

1310 NEXT TT 

1320 CLS ? 

1338 PRINT@ 132, TAB(S8) "kx MIN] GOLF xx 
1340 FOR TT=1 TO 3 

1350 PLAT "T20Q8L5QU3Q03GF GFAFO4¢CPCFEOSFA 

Fr 

1368 FOR OO0=1 TO 10 

1370 NEXT TT 

1380 CLS 

1332 RETURN 


Fireman 


Now for some fast arcade action with Fireman. You are 
attempting to savé a burning building with your trusty 
firehose. As each window of the building bursts into flames, 
you must aim your hose and direct a jet of water into the 
window before the building catches fire. 

To aim your hose at the billowingflames, press the number 
key (1 to 9) which corresponds to the burning window. The 
windows are numbered like this: 


147 
235 8 
36 9 


If you are successful and you save the window, your score will 
be incremented. If you miss the window, you will lose one of 
your three lives, so if you miss three times the game is over. At 
the end of the game, if you wish to play again just press any 
key, or if you wish to stop playing press the BREAK key to 
escape from the program. 

The program has a difficulty factor: level 1 is the easiest and 
level 10 is the hardest. 

Lines 90 and 100 draw the building and line 110 draws the 
fireman and the hose. Lines 140 to 240 work out which 
window has caught fire. Lines 280 to 300 accept the INPUT 
from the keys using INKEY$, and then check the number 
you have pressed with the number of the burning window. 
Line 400 squirts the jet of water into the window if you have 
aimed accurately. 
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When you have missed three times, line 33@ gives you the 
bad news. The routine in lines 348 to 38@ draws the little scene 
which follows a miss. This shows the building on fire. 

The routine in lines 43@ to 450 draws the flames leaping out 
of the burning window. 

This clever little program was written by Mark Farreli. 


1@ REM FIREMAN 

20 F=348 :CLS2:PRINT@162; "bby programming 
eptresents :"3:3FOR T=36@ TO 200 STEP- 32: 
PRINT@Ts "XXKF TREMANKXX" 5 (NEXTT 

34 PRINT@388," “3:INPUT"DIFFICULTY(C) =- J 
@)" ;01F -0=61-65xDIF :IFOIF <1 OR O1F>1G THE 
N3a 

44 L=3 

5a CLs 3 

60 F-@:T=a 

748 PCLS3 

8a PMODE 3,1} 

30 ORAW"C2Z 58M 14, 194j;R3GU4GR4004GL4aR2au 
4GB040R50(J154L) 000) 5a" 

144 ORAW"CI 38M 2; 140U2G8U) GUZGRU) GUZGRZ 
@BR1GRZ2GBR} GRZ2G02GBD0 1 4202880) 2O2ZGL 2481) aL 
208L14L2GU2GRZ2GBR) GRZ2GBRiGR2ZGBU) GLZ2GBLI4 
L2GBL1GL2@U2GR2GBR1GRZ2GBR1GR2G8U1GL248L) 
@L24 BL IGL2GR20U2G02480) GO2G801 402G8R) a2 
ABU IGW2G8) BUZaR2G02G801 402080) apz2aeR1au 
20811 GUZ2GBU 14 

214 CIRCLEC244;1941,9,2,1,4.5-CIRCLEC 200 
3173);,9;2,1.5:CI ROLE (200; 156),9,;2:LINEQ) 
85, 159)-(€205, 179), PSET:LINEC2@5, 169)-( 20 
4,175), PSET:LINEC84, 64)-(80,80),PSET 
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128 1FL=B THEN339 

130 SCREENI,B 

148 X=B8:7=B:F=RNOCS) 

150 JF F=1 THEN *=28 +Y=68 
168 IF Fe2 THEN X=20 :Y¥=90 


178 JF F=3 THEN X=20 +Y¥=120 
180 1F Fe4 THEN *=90 :Y=50 
198 JF F=5 THEN *=52 :Y=32 
288 ]F F=6 THEN X=S2 :Y=120 
210 1F F=7? THEN X=88 :f=628 
220 JF Fs8 THEN X80 -¥=30 
2308 1F F=9 THEN *=80 +Y¥=120 


248 1F F=2 THEN GOTO 143 

258 GOSUB430 

250 T=T +h 

2728 FOR Z=1 TO 1OxkD:NEXT2 

280 AS=INKEYS 

290 OS=STRSLF I 

308 Ags" "+AS 

318 1F As=0% THEN GOSUB 420 

328 GOTO340 

330 CLS4:PRINT@202, “BURNT OUTS22"5 -PRIN 
T@266,"SCORE= "35C3:G0SUB5 20 :CLS4 RUN 
348 IFT=2 THEN Y =Y-7 

358 IF T=3 THEN Y=Y-8 

368 IF T=4 THEN €CLS4?SS=RND(208) :SC=SC-S 
S:!PRINT@2Z66, "SCORE ="35C; ‘ 

378 JFT=4 THEN PRINT@202,"fireose"3 sc Lt 
~1 *DRAW'C)] 3BM0, GBE4QF 20E1BF SBE4F 1 BES BF 50 
E2QF 2B" :PLAY"L12 O3ABABO2ABABO1ABAB":PAI 
NTCQ;188),4,1:SCREEN],2:FOR G=1 TO 1902: 
NEXTG 

382 JFT=4 THENSD 
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394 GOUTOD 254 

4@@ LINECX, ¥+5)-(204, 170),PSET 

41@ PLAY “L] S@03ABCOEF GOSABCOEFGOOEFGO] AB 
COEF G" 

424 GOT0464 

430 ORAW"BM"+STRSCX J+", "4S TREC V HIS IA ESF 
SESFSESF2" 

44@ PAINT (X+257+373,454 

4S@ RETURN 

464 PRINT@232,; “WINOODW SAVED benus" 3 

474 SC=SC+RNOC240) 

48@ PRINT@Z99,"SCORE= ";5C; 

494 FOR Y=] TO 14@@:NEXT 

S44 Ags" :F=43T=4 

S14 PCLS:G0OTO Sa 

S2@ AS=[NKEYS 

$34 IFAS="" THEN S228 

S44 RETURN 


SS@ FOR YY=] TO 44@@:NEXTYY -RETURN 


Snap 


Snap is a game of speed and reflexes for children of all ages. It 
is played just like the card game of Snap, except that in this 
electronic version the human must match his speed and skills 
against the mighty computer. 

The program puts two cards on to the screen and then 
displays their values. First the card on the left and then the 
card on the right is ‘turned over’ to show a new value. If at any 
time the two cards on the screen show the same value, you 
must press a key on the keyboard before the time limit runs 
out. If you succeed, the number of cards which have been 
‘turned over’ is added to your score. If you fail to press the key 
in time, the cards are added to the computer’s score. 

The game has a difficulty factor, from ! to 10, which you 
may select at the start of the program. This factor alters the 
amount of time you have in which to press a key on the 
keyboard and also the speed at which the cards are turned 
over. 


18 REM SNAP 
20 CLS 5 

38 GOSUB 730 
42 GOSUB 830 
5@ GOSUEB 140 
68 GOSUB 270 
78 GOSUB 530 
82 GOSUE 3528 
92 GOSUB 3198 
120 GOSUB 5928 


2.8.0.2.—} 


106 


1128 
128 
138 
148 
158 
168 
178 
182 
132 
282 
212 
2228 
232 
242 
2528 
2628 
278 
280 
292 
302 
312 
328 
332. 
3408 
3528 
362 
370 
380 
3328 
4228 
410 
420 
430 
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GOSUB 350 
GoTo 68 
STOP 
CLs 
FoR aA=) TOS 
POKE 1063+AAt+32xBR+CC; 239 
NEXT AA 
SOUND 220, 1 
BB=BBt] 
IF BB=? THEN 220 
GoTo 158 
IF CC=11 THEN 250 
CC=11 :BB=0 
GoTo 158 
BB=0:CC=2 
RETURN 
B=RND(10)+111 
C=0:F=Frl 
POKE 1162+C;B 
GOSUB 800 :RETURN 
D=RNDC18)+111 
C=11:F=F+l 
POKE 1162+C,D 
GOSUB 820 >RETURN 
Es=INKEY$ 
IF B&D THEN E%="@" :RETURN 
IF Es="""" THEN 448 
PRINT@® 288, TABC1Q) "you beat me" 
FOR AA=l FO 18 
SOUND 250, 1 
NEXT AA 
PS=PS+FsF=2 
GOSUB S9@:GoTO S20 





9444 
454 
460 
4974 
484 
494 
348 
318 
324 
534 
544 
S50 
564 
574 
384 
538 
64g 
614 
624 
634 
644 
654 
66a 
674 
68a 
694 
748 
718 
724 
7348 
744 
7548 
764 
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PRINT@ 288, TABL11) "5 beat you" 
FOR AA=1 TO 14 

SOUND 18,2 

NEXT AA 

Cs=Cs+F:F=G 

GOSUB 598 

PRINT@ 288," " 

PRINT 

PRINT" YOUR SCORE ="3FPS 
PRINT 

PRINT" MY SCORE ="5C5 
G=8 

Jf CS>99 THEN 614 

JF PS>399 THEN 678 
RETURN 

FOR X=1 TO 2:NEXT x 
RETURN 

CLs 3 

FOR AA=1 TO 16 

PRINT TABC13)] *i won” 
GOSUB 88a 

NEXT AA 

GOTO 664 

cus @ 

FOR AA=1 TO 16 

PRINT TABCIZ) “yeu won" 
GOSUB 84a 

NEXT AA 

GOTO 724 

GOSUB 1448 

FOR AA=1 TO 4 

PRINT@ 256+6, TABCILI “xkxksnapaKkx" 
E=E+64 
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776 GOSUB aaa 

78 NEXT AA 

790 RETURN 

804 SOUNDS, 2 

816 RETURN 

820 FOR J=1 TO 2@:NEXT 
830 CLS 

840 PRINT “WHAT DEGREE OF DIFFICULTY WOU 
LD you LIKE?" 

@5@ PRINT :PRI NT 

860 PRINT"1= HARDEST" 
870 PRINT 

880 PRINT "1Q=EASIEST" 
890 INPUT Y 

906 2=100xr 

916 RETURN 


Biorhythms 


Here is a very useful utility program which will give you some 
insight into the large variety of tasks your computer can 
undertake. This program provides a guide to your biorhythm 
cycles. 

According to some authorities, our lives are governed by a 
series of cycles which begin at birth and continue throughout 
our lives. The three cycles are; 


The physical cycle. This is a 23-day cycle which is related to 
endurance, aggressiveness and strength. 


The emotional cycle. This cycle relates to all emotions such as 
temper, optimism, depression and so on. This is a 28-day 


cycle. 


The intellectual cycle. The mental cycle is a 33-day cycle and it 
controls the common sense and reasoning powers. 


Each of these cycles is different in length, which means that 
you can be on an intellectual high but a physical low at the 
same time. This attempts to explain why a person can be very 
clumsy on a day when he or she is feeling mentally alert, or 
completely tongue-tied on a day when they feel capable of 
running a marathon. There are rare occasions when all cycles 
are on a peak level and the personconcerned can do no wrong. 
If all cycles hit a low point on the same day, you would be well 
advised to stay in bed. 

At the beginning of the program the computer will ask for 
your name. It will then ask you to enter your date of birth, the 
year first, followed by the month and then the day, e.g., 
1959,6,17. Separate the numbers by commas. Following this 
the computer will ask you the date for which you wish the 
forecast worked out. Once again, enter the year, month and 
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day. The computer will then give you an assessment of your 
three cycles. 

The program is fairly straightforward. The subroutine be- 
ginning at line 600 is called up each time you enter a date. This 
routine converts the date of your birth and the forecast date 
into a number of days. Line 230 finds the difference between 
the number of days in the two dates. This number of days is 
then divided by the length of the three cycles in the subroutine 
beginning at line 490. Lines 260 to 42 then print out the 
results of the calculations. 

Following the listing, there are a couple of examples of the 
program in action. 


1B REN BICRHYTHMS 

22 GOSUB 640 

30 Ys="YOUR LOW POINT " 

40 X$="CYCLE" 

528 CLS 

6B PRINT :PRINT+PRI NT 

72 PRINT TAB(S) "PLEASE ENTER YOUR NAME" 
8B INPUT 2% 

98 FOR DD=1 TO 580:NEXT DD 

1BB PRINT:PRINT TABC2) “HELLO ";2% 

110 FOR DD=1 TO 5QB:NEXT DD 

123 PRINT 

130 PRINT "PLEASE ENTER YOUR DATE OF BIR 
TH" 

142 PRINT TABCB) “CY;M,DI" 32: INPUT ¥305,0 
158 GOSUB 628 

160 J=BD 

172 PRINT TABC?) "DATE FOR FORECAST" 
1aQ0 PRINT TABCB) "CY,M,DI"5 

198 INPUT Y,N, 0 

208 CLS 
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210 GOSLB 640 

226 2=BD 

230 Gre-J 

248 C=23 

250 PRINT 

266 FOR OD=i TO 166@:NEXT OD 

270 PRINT TAB(7) "PHYSICAL " 5x$ 

280 PRINT TAB(7) YS 

290 GOSLB 499 

300 C=28 

316 PRINT 

32@ FOR OD=t TO 100@:NEAT OD 

330 PRINT TABC7) "EMOTIONAL " jXxs 
344 PRINT TAB(7) YS 

350 GOSLB 492 

360 C=33 

370 PRINT 

38@ FOR DO=1 TO 100@:NEXT OD 

390 PRINT TAB(7] "INTELLECTUAL " 54% 
406 PRINT TRB(7) YS 

416 GOSLB 490 

420 PRINT 

430 PRINT "DO YOU WANT TO TRY ANOTHER DA 
TE" 

440 PRINT TABCLI3) "CY“NI"; 

450 INPUT AS 

460 AS=LEFTS(AS, 1) 

470 iF Ag="7" THEN FOR DD=1 TO SQQ:NEXT 
DD:GOTO 58 

480 GOTO 770 

49@ REM THIS CALCULATES POINT IN CYCLE 
568 PLAY "T25@U3G0Z2AAAGGGAAAARA" 

516 F=G-INTCGvC)#C 

520 IF FoCv2 THEN H=C-F :GOTO 5408 
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534 IF F=@ OR Cv2=F THEN PRINT TABC(7) “I 

S TODAY" :RETURN 

544 H=C’2-F 

55@ H=INTCH) 

S6@ IF H=@ THEN PRINT TAB(7) "IS TODAY": 

RETURN 

57@ IF H<@ THEN PRINT TAB(7) “WAS SABSCH 
i"DATS AGO" :RETURN 

Sa@ PRINT TABCA) "IS IN" SH;"DAYS TINE" 

598 RETURN 

6@@ REN THIS CALCULATES THE TINE IN DAYS 

618 IF M-3>=@ THEN B=B+!I ‘GOTO 628 

628 BO=INT(Y*365. 25)+ INT(N£34.6) +0 

638 RETLRN 

648 CLS:PRINT@ 194, "ENTER A NUMBER FROM 
1 72 9"; 

658 INPUT «XK 

668 GG=xxK~1 

678 CLS GG 

6a@ FOR DD=!t TO 25@:NEXT DD 

698 GG=64 

704 FOR CC=!I TO 6 

71@ PRINT® GG, TABCIL) “BIORHYTHMS" 

728 PLAY "T25804U3GL. 1 6G6GGGGAARAAAGGGEGGAAA 

ARA” 

738 GG=GG6+64 

748 NEAT CC 

798 FOR DD=1 FO S@@:NEXT OD 

768 RETURN 

77@ FOR DO=1 TO 1@@@:NEXT OD 

7aa@ CLS @ 

798 PRINTB 192; TAB(12) “GOODBYE” 

€@@@ PLAY “T/SU3G02GBAF GGGADDAAFF GS" 

a1@ GOTO ala 
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PLEASE ENTER YOUR NAME 
JOSHUA 
HELLO JOSHUA 


PLEASE ENTER YOUR OATE OF BIRTH 
CY¥:4;0) 1942 2? 29 


OATE FOR FORECAST 
(¥;%;0)] 1996 6 |] 


PHYSICAL CYCLE 
YOUR LOW POINT 
Is tOOAY 


EMOTIONAL CYCLE 
YOUR LOW POINT 
IS IN 5 OAYS TIME 


INTELLECTUAL CYCLE 
YOUR LOW POINT 
WAS 14 OAYS AGO 


00 YOU WANT TO TRY ANOTHER DATE 
LYZN) 
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PLEASE ENTER YOUR NAME 


GILBERT 
HELLO GILBERT 


PLEASE ENTER YOUR DATE OF BIRTH 
(Y;M;0) 1956 5 13 


DATE FOR FORECAST 
C(Y5M,;0) 1983 9 211 


PHYSICAL CYCLE, 
YOUR LOW POINT 
WAS 11 DAYS AGO 


EMOTIONAL CYCLE 
YOUR LOW POINT 
IS IN 1 DAYS TIME 


INTELLECTUAL CYCLE 
YOUR LOW POINT 
IS IN 1 DAYS TINE 


DO YOU WANT TO TRY ANOTHER DATE 
(Y/N) 


Nine Frogs 


Nine Frogs makes very good use of the high resolution 
graphics of your computer. By using the CIRCLE command 
to great effect, the program draws the faces of nine frogs on 
the screen. After a short delay, a fly will appear over the face 
of one of the frogs. By pressing the correct numerical key (1 to 
9 onthe top row of the keyboard) you will be able to feed the 
‘frog. If you don’t press the correct key or the time limit 
expires, the frog will starve and be removed from the screen. 

Each time a frog eats a fly, you will be given a points score. 
Each time you fail, you will lose points as well as a frog. 

The game ends when three frogs have missed their lunch. 

The frogs are numbered: 


147 
25 8 
2 6 9 


At the beginning of the game you will be asked to enter a level 
of difficulty. Level 1 is the hardest and 10 is the easiest. 

The GOSUB in line 20 sets up the F array with nine 
elements and fills each element with the value of one. This is 
used to check if a frog has disappeared from the game. When a 
frog is removed, the statement F(B)=@ (line 829) sets to zero 
the element of the array which corresponds to the deceased 
frog. When a frog has been picked at random in line 510, we 
then GOTO line 960 where we check to see if the frog we have 
just picked is still in the game. If it isn’t, we go back and select 
another one. This prevents the fly, drawn by line 660, from 
being placed on a dead frog. 
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Lines 7@ to 43@ draw the frogs using the CIRCLE com- 
mand. Line 46@ is used to bypass the title routine if we have 
already been through it before. 

Line $1@ picks which of the nine frogs we are going to 
DRAW the fly on to. Lines 52@ to 68@ provide the X and Y 
coordinates for the DRAW statement in line 660. 

Line 62 uses the difficulty level accepted by line 490. Your 
INPUT is multiplied by 10 and then set equal to the variable 
Q. Qis then used as the length of time the fly will stay on the 
frog before the program rushes on. This is done by the 
FOR/NEXT loop in lines 68@ to 738. These lines accept the 
number you have pressed to feed the frog. They check to see if 
you have fed the correct frog and go on to the CATCH 
FAILED routine when the time limit expires. 

Lines 814 to 824 clear out the starved frog and send the 
program back for another turn. Variable DF (for dead frogs) 
in line 800 checks to see how many frogs have been missed. 
When DF equals 3, the game is finished. 

Nine Frogs was written by Mark Farrell. 


t@ CLS 

2@ GOSUB 350 

3@ PLAY “TL@@OZADADADOSFCFCFCOIF GF “ 
4@ PMONE 3,1 :PCLS 

5@ FCLS(3) 

6@ ORAW*C1* 

?@ REM ORAW 9 FROGS 

8@ CI]RCLE(5@,48),25 

9@ CIRCLECS@, 108),25 
10@ CIRCLECS@, 160), 25 
110 CIRCLEC120;4@)525 
12@ CIRCLE(] 20, 1048),25 
13@ CIRCLE(12@, 160),25 
14@ CIRCLEC190,40),25 


15a 
168 
170 
18a 
193 
280 
210 
220 
238 
248 
250 
260 
278 
280 
290 
300 
310 
328 
330 
340 
450 
360 
370 
380 
390 
420 
41a 
420 
430 
448 
45a 
46a 
472 
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CIRCLE()9@; 100), 25 
CIRCLE() 9@, 1601, 25 
CIRCLE(43,301,7 
CIRCLE(6@; 3G), 3 

CIRCLECS@, 423,15,1,)50,.5 
CIRCLEC43, 901,27 

CIRCLE(6@; 90),7 

CIRCLECS@, 10@03,15,151585.5 
CIRCLEC43, 150), 7 

CIRCLEC6G, 150),7 
EIRCLEC5S@,160),15,1,1,0,.5 
CIRCLEC113,30),7 
CIRCLE(C13@,30);7 
CIRCLEC)2@; 9@)515,1,1:85.5 
CIRCLEC113,90),; 7 
CIRCLEC130,9@ 3,7 
CIRCLEC)2@;,100),15,1,1,@,.5 
CIRCLEC) 13; 150),7 
CIRCLE(]3@,150),7 
CIRCLEC] 20; 160),15,1,1,0,.5 
CIRCLEC183, 333,27 
CIRCLE( 200, 30),7 

CIRCLEL1I9SG 590 J,1551,1,85.5 
CIiRCLE(183,90),7 
CIRCLE(2@Q; 90);7 
CIRCLEC19G@,100),15,1,1,0,.5 
CIRCLEC1 83,150] ,7 
CIRCLE(2@0, 150),7 
CIRCLECII@, 16@3,155151,05.5 
FS="E)]SFISRSL33RZ605RSUSOSL35F ISE15" 
CLS4 

ARAt17:1F A>] THEN GOTO 51a 
PRINT8203, "NINE FROGS"; 
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480 PRINT@Z55, "BY MARK FARRELL" 
4390 PRINT@326," "3:INPUT“ODIFFICULTY (1-1 
BI"sC 

500 IF C<) OR £>10 THEN 490 
510 B=RND(3) 

520 IF B=1 THEN X=50:Y=40 
530 IF B=2 THEN X=50:Y=100 
540 IF B=3 THEN X=50:Y=160 
550 1F B=4 THEN X=120:Y=40 
S60 IF f=5S THEN X=120:Y=100 
570 IF B=6 THEN X=120:Y=160 
590 IF B=? THEN ¥=190:Y=40 
590 IF B=8 THEN ¥=190:Y=100 
600 JF B=3 THEN X=190:Y=160 
610 SCREEN 1,0 

620 G=Ck18 

630 REM DRAW FLY 

640 GOTO 960 

650 PLAY "TS@U3ACA"” 

560 DRAW" SZj;CZBM"+STRSCX-SI+", “+STRECY+S 
J+FS 

670 REM KEYBOARD SCAN 

680 FOR l-1 Ta @ 

690 AS=]NKEYS 

708 BS=STRS(B) 

210 AS=" "+AS 

720 IF BS=As THEN GOTO 750 
230 NEXT 1] 

740 GOTO 800 

250 


768 


REM 1F CATCH 1S SUCCESSFUL 
PLAY“LSQ02ABCDEFG" ; 
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77a CLS G:PRINT@138, “tasty Junch" ;:L=RNO 
(1 @0)+)] a0 :SC=Sl+l :-PRINT@#2G2,"bonuss"3L7: 
PRINT@Z66,"score="3;SCj:FDR G=1 TD }@aa:N 
EXT GiAge"* 

784 ASs"" :B¢-"":SCREEN 1,4:GOTO 44 

?3@ REN IF CATCH FALLS 

84@ CLS@:PRINT@138, "frog starved" j :P=RNO 
(2@@)+] @@:SC=SC-PiPRINTBZA2, "penalty" jP3 
SPRINT@266, “score="jSC;:FOR G=1 TO 1aaa: 
NEXT G:DF=OF +t] siF OF=3 THEN GOTO 844 
81@ REN CLEAR STARUEG FROG 

820 At]=""sBee""sLINE(X-3A4, Y-3A3-Cxe3G, T+ 
343,PRESET, BF iF (BI=@ 

834 GOTO 514 

84@ CLS RNOL8} 

854 PRINTA 188," "3 “THREE FROGS ARE DEA 
Dog 

864 FOR OD=1 TO 3 

874 PLAT "T2@@02AAF]AfIGGO1GGFFAAARAP1" 
88@ NEXT 

85@ FOR OO=! To 24A@:NEx] 

S@@ PRINT@ 264,“ "3 “PLAT AGAIN CY/N)"; 
Sl@ @t=[NKEYS:IF @¢="" THEN S14 

82a IF @¢="N" TREN CLS:PRINT@ 244, "GOOO 
BYE" :GOTO 344 

S34 RUN 

54@ GOTO 544 

95@ FOR ABKl 10 S!F CABS +] :NEKT SRETURN 
S64 IF FCBi=@ THEN GOTO 514 ELSE GOTO 65 
a 
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Doge of Venice 


Doge of Venice is not an easy game to play. The aim of the 
game is easy to state — to amass wealth through trade and to 
feed the population of Venice — but this is not simple to 
achieve. You will be responsible for the administration of the 
city. This involves the allocation of labour, the building of 
ships, the maintenance of the army, production of goods for 
export and the conducting of overseas trade. 

You will also have to contend with pirates and with local 
and overseas wars, not to mention adverse economic condi- 
tions and pressures from your own population. 

You will be given a points rating at the end of each game 
year which will give you some indication of how well or 
otherwise you are doing. 

Each year, depending on the size of the population, you will 
be given a number of labour points to allocate. The way that 
you divide up these points is very important. You have five 
areas that require labour: the army, the navy, the merchant 
marine, the shipyards and the export trade. You can allocate 
labour to any of these areas (or take labour away from over- 
supplied areas by entering a negative number), but be very 
careful to make sure that you have the best possible dis- 
tribution for the coming year. 

At the start of the game you have a choice of how many 
years you wish to play for. After you have chosen, the com- 
puter will then set up the parameters of the game. These 
starting conditions are not necessarily balanced and may re- 
quire quite a bit of juggling to produce a workable plan for the 
first year. 

You may move labour back and forth between the five areas 
as much as you like, but as soon as the unallocated labour total 
reaches zero the computer will move on to the next phase. 

We will now look at the five areas that require labour. 
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The army 

The army protects your local towns and mans your overseas 
outposts. A strong army is required to fight your battles and 
protect your trade routes. The army makes no profit for you 
and costs 1000 ducats per point per year to maintain. 


The navy 

The war galleys of Venice protect your merchant shipping 
from pirates and also fight your overseas wars to keep your 
trade routes open. The navy makes no profit and, like the 
army, costs 1000 ducats per point per year to keep up. 


The merchant marine 

The backbone of Venice’s wealth is the merchant fleet. These 
ships sail local waters supplying food and daily necessities to 
the people of Venice. Larger galleys sail to far-off lands in 
search of greater riches. The merchant fleet must be as large as 
you can make it because it supplies the goods which keep your 
people happy, plus it makes the money you need to finance the 
expansion of your little empire. Unfortunately your merchant 
ships are often the target for pirates and they suffer heavily in 
times of war (especially if you lose!}, so they need to be 
protected by warships at all times. 


Export production 

Successful overseas trading will make Venice rich, so you need 
to have tradesmen producing fine goods to trade overseas. 
There is no use sending great fleets of merchant ships off 
around the world if they have no goods to trade. So make sure 
that for each point you put into the merchant fleet there is a 
corresponding point in export production making goods for 
the ship to carry. You will soon go bankrupt if you send empty 
ships to all corners of the known world. 


Ship building 

Venice was famous for the quality of its ships. This was largely 
due to the state-owned ship-building industry. Each labour 
point you put into this industry will build a ‘ready to sail’ ship. 
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Here it is very important to allocate your labour carefully. It 
would be the height of folly to build ships which then have no 
crews to sail them because you have insufficient labour in the 
navy and merchant marine to provide crews. Likewise it is 
very wasteful to have crews sitting idle on shore because there 
wasn’t enough labour to build ships for them. 

After your ships have been built you can then allocate them 
to the navy as war galleys or to the merchant marine as trading 
ships. 


As you can see, you will be required to juggle labour very 
carefully between the five areas. Your success as a Doge 
depends on how good you are at juggling. 

Your army can be augmented by hired mercenaries, but 
mercenary points cost more to maintain than army points. 
Also, they are only available in limited numbers. When you 
fire mercenaries there is always the danger that they will not 
take kindly to this and wil! run riot through your streets. 

The value of your trade with other areas depends to some 
extent on how well you come out of the various wars which 
have a habit of breaking out al! around you. For this reason it 
is a good idea to make sure your overseas army garrisons are 
well manned and your merchant ships are protected by war 
galleys. 

After you have picked your way carefully through all these 
problems, you still have one more difficulty: your people. If 
you don’t feed them well and keep them prosperous, they will 
deal very harshly with you. 

If you survive as Doge of Venice, you will be given a final 
score which will relate to the size of Venice’s population and to 
the amount of money in the city treasury at the end of the 
game. 

Doge of Venice is a very complicated game which wil! 
present you with a stimulating challenge. 
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1@ REM DOGE OF VENICE 

2 GOSUR 293¢ 

328 CLS 

48 PRINT TABC6) "X#kXdoge of Venicekkx" 

SQ PRINT "HOW MANY TURNS DO YOU WISH TO 
PLAY FOR CMIN 18,MAX 28]"5: INPUT TL 

6Q@ IF TL<1Q@ THEN TL#tQ 

7Q@ IF TL>28 THEN TL#=22 

68 CLS 

98 TR=S88088 :TN=i5Q] :PO=1808000 s:LP=252 sNS= 

RND(20)+1128 

18Q WS=RNDC18)+38:FS=RNDC1Q)+102:0B=108 

118 FD=188:LA=RNDC10)+5:MA=RND(10)+12 

128 MC=2000 :LN=WS :GU=108 :LMN=MSzLF=RNDC1Q 

)+28 

138 VL=108:VB=180 

148 LS=RNO(38)+15 :UL=258-LS-LE-LM-LN-LA 

158 IF UL<Q@ THEN 32 

168 GOSUB 228228 

178 CLSC3)+PRINT"CHECKING LABOUR" 

168 IF UL=@ THEN PRINT" YOU HAVE NO LABOU 

R TO ALLOCATE" :GOSUB 198@:CLS:GOTO 442 

192 PRINT"LABOUR TO ALLOCATE="3UL 

208 PRINT"WHERE 00 YOU WISH TO EMPLOY TH 

En?" 

218 PRINT"C1IFRARNMY";,"C2J=NAUY", 5 "C3I=ME 

RCHANT NAY" 

222 PRINT" (4) =EXPORT PRODUCTION", "(5)=SH 

IP BUILDING" 

238 AS=INKEY$ 2] FAS=""THEN 232 

248 IF Ag="]" THEN 298 

258 IF As="2" THEN 328 ELSE IF As="3" TH 

EN 3528 


260 
EN 

270 
280 
230 
320 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
42 
430 
440 
450 
460 
470 
480 
490 
500 
510 


520 
538 
348 
IRE 
358 
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IF AS="4" THEN 386 ELSE IF AS="5" TH 
410 

PRINT AS 

GOTO 236 

PRINT'LABOUR FOR ARNT"; 

INPUT B:IF BXUL THEN 300 
LA=LA+B:UL=UL-B:GOTO 166 
PRINT"LABOUR FOR NAUY"; 

INPUT B:IF BOUL THEN 330 
LN=LN+B:UL=UL-B:GOTO 160 
PRINT"LABOUR FOR MERCHANT NAVY" 
INPUT B:IF BOUL THEN 360 
LM=LM+B:UL=UL-B:GOTO 168 
PRINT"LABOUR FOR EXPORT" ; 

INPUT B?JF BOUL THEN 390 
LE=LE+tB :UL=UL-B:GOTO 160 

PRINT" LABOUR FOR SHIP BUILDING"; 
INPUT B?IF BOUL THEN 426 
LS=LS$+B:UL=UL-B:GOTO 160 

GOSUB 2020 
PRINT"YOUR ARMY STRENGTH="3LA 
PRINT"HOW MANY FOR LOCAL GARRISONS"; 
INPUT Q:IF Q@>LA THEN 476 
AL=0:A0=LA--O 

IF MH=@ THEN 54@:CLS(6) 

PRINT "MERCENARIES HIRED="3IH 
PRINT"HOW MANY FOR LOCAL GARRISONS?" 

















INPUT R:IF ROMH THEN 520 

SL=R :SO=[MH -R 

CLSCSI:PRINT"NO.OF MERCENARIES FOR H 
="5TA 

PRINT"NO,. OF MERCENARIES HIRED=" 5MH 
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566 PRINT"DO YOU WISH TO..," 

57@ PRINT" C1)-HIRE MERCENARIESCCOST" jNC; 

vy 

58@ PRINT"(2)-FIRE MERCENARIES", "(3)-NON 

E OF THE ABQUE" 

590 AS=[NKEY$:IF As="" THEN 590 

600 IF Ags="t" THEN 62@ ELSE IF AS="2" TH 

EN 656 

616 IF As="3" THEN 9880 

626 PRINT'HOW MANT''; 

636 INPUT B:IF BMA THEN 636 ELSE IF B<@ 
THEN 630 

646 MH=NH+B :MA=MA-B -GOTO 544 

656 PRINT"HOW MANY TO FIRE"; 

666 INPUT B:IF BMH THEN 666 ELSE IF B@ 
THEN 660 

670 MH=MH-B :MA=MAtB IM l=BxS :CLS(4) tX=RNDC 
106) 

686 FOR [=] TO 50@:NEXT 

690 IF MI<xX THEN 78@ ELSE PRINT"the mere 

enaries you have fired are rloting" 

700 U=10@O*xRND C1) :U=]66G@xRND(2G) :W=RNDE 
10)+2 

710 PRINT" THEY HAVE. LOOTED YOUR TREASURY 
OF" jU;"DUCATS229" 

7220 PRINT"AND PUT" ;U;"CITIZENS TO THE SW 

ORDggo" 

73@ PRINT"LABOUR KILLED-"' 

74@ PRINT“EXPORT PRODUCTION=" ;INT(W73) 

750 PRINT"SHIP BUILDING="jINTCW73) 

760 TR=JR-U:LS=LS-INTCW43) :LE*LE-INTCW73 
} 

27@ PO=PO-V:GOSUB 2830 
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7a@ PRINT" THE MERCENARIES YOU FIREQ LEAU 
E QUIETLY" 

794 PRINT@ 448, TABC7) “ “3:GOSUB 2a3a 

aaa CLs 

€1@ US=LS 

a2@ IF US=@ THEN PRINT" YOU HAVE NO MORE 

SHIPS TO BUILO" :GOSUB 198a@:GOTO 9948 

€3@ PRINT"SHIPS BUILT THIS TURN=";jUS 

€@4@ NW=LN-WS :MW=LM-MS 

a5@ PRINT"NO, OF CREWS WITHOUT WAR GALLE 
YS=" NW 

860 PRINT"NUMBER OF CREWS WITHOUT MERCHA 

NT SHIPS=" 3MW 

€a7@ PRINT"DO YOU WISH TO BUILO.,." 

€8a@ PRINT"(] JeEWARSHIPS", ,"(2)=MERCHANT S 
HIPS", "(3)=NONE" 

asa AS=INKE YS: IF AsS=""THEN 838 

988 IF A$="1" THEN 92@ ELSE IF As="2" TH 

EN 358 

914 IF As="3" THEN 9a 

9248 PRENT"HOW MANY GALLEYS” ; 

934 INPUT B:IFB>US THEN 934 ELSE IF B<@ 
THEN 938 

94@ US=US-68 :WS=WS+B:CLS :GOTOa28 

95@ PRINT"HOW MANY MERCHANT SHIPS"; 

96@ [INPUT B:IF B>US THEN 968 ELSE IF B6<@ 
THEN S968 

974 US=US~B:MS=MSt+B:CLS:;:GOTO aza 

9$8a@ IF US>@ THEN PRINT"YOU STILL HAYE SH 
IPS TO BUILD" :GOTO a2a 

998 CLS 

1404 IF LNOWS THEN WAEWS 

1414 IF WS>=LN THEN WA=LN 
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142@ IF MS>LM THEN MU=LN 

183@ IF LM=NS THEN NU=NS 

1844 PRINT'WARSHIPS AUAILABLE="3;WA 

1@5@ PRINT"MERCHANT SHIPS AUAILABLE=" ;mU 
=PRINT "MAX NO. FOR OUERSEAS TRADE={"3LE 

186@ PRINT "HOW MANY WARSHIPS FOR QUERSE 

AS TRADE"; 

1@7@ INPUT WO:IF BOWS THEN 1878 

1@8@ WL=WA-WO 

189@ PRINT“HOW NANT MERCHANT SHIPS FOR O 

VERSEAS TRADE"; 

1144 INPUT MOzIF MODONS THEN 1188 ELSE IF 
MO>LE THEN 1188 

1114 ML=MS-NO 

112@ CLS RNDCA) 

113@ LC=RND(18@) 

114@ GOSUB 1996:CLS RNDC8):PRINT TABL4) 

“keEKKouerseas wars kKkAKK" 

115@ IF LC<a6 THEN PRINT"WAR BREAKS OUT 

WITH" :GOTO 1178 

1168 G=RND(5):PRINT’NO OUERSEAS WARS" :GO0 

TO 1388 

1178 IF LO<21 THEN PRINT *BYZANTIUN" :GOTO 
1258 
11a@ IF' CC<¢26 THEN PRINT“ THE NORMANS" :GO 

TO 1288 
1194 IF LC<36 THEN PRINT"CRETAN REBELS": 

GOTO 1278 
1208 IF LO<46 THEN PRINT"THE SARACENS" :G 

OTO 1268 

121@ IF LC<S6 THEN PRINT"GENOA":GOTO 1228 

a 
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1220 IF LO<66 THEN PRINT"THE INFIDELS AS 
SAULTING JERUSALEM" :GOTO 1298 
32308 IF LO<?6 FHEN PRINT"THE TURKS IN AF 
RICA" :GOTO 1260 
1240 PRINT" THE TURKS AT ACRE" :GOTO 12698 
3258 G=RND€15)]+S-H=1.6:GOTO $318 
1268 G=RNOCIBI+S:H=1.2:GOTO 1318 
1278 G=RNOC5SI+S:H=1 -GOTO 1318 
3288 G=RNDC12)+5:H=),.2:G0TO 13130 
3296 G=RNDC19)+5:H=1.4:G0TO 1318 
1300 PRINT"OQUERSEAS TRADE VALUE INCREASE 
S BY";G;"2":UB=UBtG:GOTO 1338 
1310 GOSUB 2170:GOSUB 2ee0 

1320 UB=UB~G:PRINT"OUERSEAS TRADE VALUE 
DECREASES BY" 3G 3"2" 
1330 PP=RNDC 100) 
3348 GOSUB 1970:CLS RNDC8]:PRINT TABCH) 
"CCCCClocal wars))III" 
3350 IF PP<91 THEN PRINT"WAR BREAKS OUT 
WITH" :FOR I=} TO 195@@:NEXT:GOTO 1398 
3368 G=RNDC(S) :GOTO1S28 

1372 PRINT"NO LOCAL WARS" 

1386 IF PP<& THEN PRINT" THE PAPAL STATES 
":BOTO 1448 
1390 IF PP<}1 THEN PRINT'COMACCHIO" :GOTO 

14408 

1482 IF PP<21 THEN PRINT" THE NORMANS OF 
SICILY" :GOTO 145@ 

1410 IF PP<36 THEN PRINT"FRANCE" -GOTO 14 
68 
1428 IF PP<6!1 THEN PRINT*MELAN" ?-S0TO 145 
Q 
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1434 IF PP<9) THEN PRINT"GENOA" :GOTO 145 
a] 

144@ G=RND(S3+Sttl-} :GOTO 1474 

1454 G=RND(14}+5:H=1.2:GOTO 1474 

146@ GeRND(15) +5 :H=2 

147@ GOSUB 2504 

1484 UL=UL-G 

149@ PRINT"LOCAL TRADE VALLE DECREASES & 


Y*sGp"2" 
1508 FOR f=1 TO 1S@Q:NEXT:SOTO 1540 

158 UL=UL+G 

1528 PRINT"LOCAL TRADE UALUE INCREASES B 
yy" che do 


1534 FOR I=) TO 15@@:NEXT 

1549@ YYRINTCMLAXUL £4) 

}55@ TR=TRtYY 

1568 2Z=]NTC1S&UBKMO} 

1576 TReTRtzZz 

1584 GOSUB 198@:CLS RNO(8} 

1594 PRINT"OUVERSEAS TRADE REVENUE ="322; 
“DUCATS” 

1644 PRINT"LOCAL TRADE REVENUE =" ;¥¥3;"DU 
CATS" 

161@ PRINT"DUCATS IN TREASURY="3TR 

1624 GOSUB 2832 

163@ PRINT" pirates attack your shippin 
g":PLAY"O] ;AR-AA-" 

1644 RL=RND(5@}+50 

1654 RP=[NTCCRL-WL*3)714] 

1664 IF RP<@ THEN RP=G 

167@ IF RP>ML THEN RP=ML 

1680 ML=ML~RP > MS=MNS-RP :LM=LM-RP 
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1698 PRINT"LOCAL MERCHANT SHIPS LOST ="3 
RP 

1744 RO=RND(SG1+54 

1714 RO=INTCLRO~WOX3)7108) 

1724 IF RO<@ THEN RO=G 

1734 IF RO>MO THEN RO=lI0 

1744 MO=MO-RO :MS=MS-RO:FLM=LM-RO 

1734 PRINT*QUERSEAS MERCHANT SHIPS LOST 

="3;RO 

1764 GOSUB 2834 

1774 GOSUB 2420 

1784 CR=RND(3@1+85:FD=INTCPO/1040) 

1798 FU=INT(MLXER/ 340) 

1804 FS=FS+FU-FD 

1814 PRINT"FEEDING YOUR PEOPLE" 

1824 IFFS>=@ THEN 1834 ELSE 2854 

183@ PRINT’ THERE IS PLENTY OF FOOD FOR A 
LL" 

1844 GOSUB 2834 

1854 CLS RND(8I-FRINT" YOU ARE PAYING YOU 
R:","ARMY,NAUT AND MERCENARIES” 

1864 D=]G@Gax(LA+LNI :E=28GGXMH 

1874 TR=TR-D-E 

1884 PRINT“COST FOR" 3MH;"MERCENARIES ="3 


E, "COST FOR" ;LA3"ARMY REGIMENTS AND"; “ 


18394 
1986 
1314 
1920 
1334 
13946 
1956 


“SLN"WARSHIP CREWS #"3D 
GOSLB 28340 
PO=INTCPOX) G7] 
WL=INTCPO/2500) 
MA=MA+C(RNDC7I-!) 
TL=TL-1:GOSUB 2784 
TN=TN+1 
GOTO 164 
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19568 
1378 
1588 
1398 
2888 
2818 
2828 
2838 
2848 
2858 
2868 
2878 
2988 
2838 
2188 
2113 
E 

2123 
2138 
2148 
2158 
2168 
2178 
2188 
2133 
2298 
2219 
2228 
2236 
2246 
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FOR [=] TO 188Q:NEXT 
FOR I=] TO 588:NEXT 
FOR [=1 TO 398 =NEXT 
FOR [=] TS 18@:NEXT 
FOR [=f TO SQ@:NEXT 


PRINT"venices status for year"3TN 
PRINT" POPULAT [ON- “;Pd 
PRINT*LABOUR [N ARNY- "5iA 
PRINT“NERCENAR IES HIRED" 3MH 
PRINT“LABOUR IN NAUY- “3LN 
PRINT“WAR GALLEYS~ “SWS 
PRINT*’LABOUR IN MERCHANT MARINE" 5M 
PRINT“NUMBER OF MERCHANT SHIPS-" 3S 
PRINT'LABOUR IN SHIP BUILDING-"SLS 
PRINT" LCABGUR- EXPORT PROOUCTFON-“ sL 


PRINT"LABOUR AVAILABLE- "5UL 
PRINT*DUCATS IN TREASURY-"3 TR 
PRINT“FOGOQD STOCKPILE- "SFS 
PRINT’FOOD REQUIRED= “3FD 
GOSUB 2832:CLS:RETURN 

2B=RNDC 1995 

IF TN<1587 TREN 20=3 

IF TN1586 THEN 20=2 

IF TNO35GS FHEN 2041.5 

GOSUB 28928 
2C=CCAO+SOS+INTCWOr2) 3 *20 
2F=INTCZE/H) 

PRINT“YTOUR CHANCE TO WIN [S"3eF 3"%" 


2PLAY "ABCFF" 


2256 


IF @B=<ZF THEN 2338 
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2260 PRINT TABLS) “xkxekventice Is defeated 
KK" 
2274 GOSUB 198@:WW=RNDC3@)+3 
2280 MW=RNDOC20)+6 
229@ AW=RNDL3) 
2340 SW=RNO(3):GOSUB 2390 
231d GOSUB 2830:GOTO 132d 
2320 IF INKEY$=""" THEN 2324 ELSE 1324 
2330 WW=RNDCL3) 
2340 MW=RNDC?) 
235a@ AW=RNOC2Z)-1 
2360 SW=RNOC2)-1 
2370 PRINT TABL4) “<<<venice is vietorio 
usd>>":PLAT"OST4@CFFCFCFF" :GOSUB 239 
2380 GOTO 1304 
2390 WW=INTCWWKH? > MW=INT CAWKH) SAW=INTCAW 
4H) 
2400 SW=INTCSWkHI:IF WOCWW THEN WW=WO 
241@ IF MO<MW THEN MW=M9 
2420 IF AWSMO THEN AW=A0 
2430 IF SW>SO THEN SW*SO 
2444 WS=WS-WWoLN=LN-WWoMS=MS-MW EL M=LM-MW 
245@ LA=LA-RWtMH=MH-SW 
2460 PRINT"!asses:-":GOSUB 2000 
2470 PRINT WW; "WARSHIPS"; ,MW; “MERCHANT & 
HIPS" :GOSIJB 200d 
2480 PRINT AW; "ARMY REGIMENTS", SW3"MERCE 
NARY REGIMENTS" :GOSUB 240d 
249@ RETURN 
2500 2B=RNOC 148) 
2514 IF TN<ES@? THEN 2D=3 
2524 IF TNd2I5@6 THEN Z0=2 
2530 IF TN>15@9 THEN 20=1.5 
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2544 GOSUB 1994 

2550 ZCHCCAL+SL 34 INTCWL 72) 1xZ0 

2568 ZF=INT(ZC/HIJ:IF ZF>3IG@G THEN ZF=10a 
257@ PRINT“YOUR CHANCE TO WIN IS"32F3"%" 
:PLAT"O}FTIGBGFFOO004T 33BGFFAGBO) TJ GGEEGG 
BBOOFFFF" 

2580 IF 2B=<zZF THEN 2644 

2594 PRINT TABL4) "xkkven(ce is defeated 
xk" =PLAYT' OL T1 GBBAAAGGGG-G-G-" 

2604 FOR I=] TO 1G0@:NEXT :WH=RNOCIGI+3 
2610 MW=RNDC24)+6 sAW=RNOC3) ¢SW=RNOL 3) OFS 
=INTCFSZHJ:PRINT"FOOD STOCKPILE REDUCED 
BY" ;INTC1G@GX{}-17HI) 5 "%" :PO=PO-) @GG*H 
2620 IFWWOWL THEN WWeWL:IFMWOML THEN Mi= 
ML:IF AWKDAL THENAWSAL+*IF StSL THEN SW=S 
1 

2634 GOSUB 2694-GOSUB 2834-:RETURN 

264@ PRINT TABC4)] "“CWwenice ts victorio 
us>>>" :PLAY"C" 

265@ FOR I=) TO 1@0@:NEXT 

2660 WW=RNDOCL 3) :MW=RNOCZ) :AWERNOCZI)-1 2 Sls 
RNOCZI-) 

2674 GOSUB 2694 

2684 GOTO 1514 

269@ PRINT"LOSSES:" 

2700 WHR INT ClWH) -MWEIN TCM? 

2710 AW=INTCAWKH) :SW=INTCSHXHI 

2720 IF WL<dlt THEN WWeWL:IF M_<mMW THEN 
WenL 

2730 IF AL<ALW THEN AW=ALSIF SL<SW THEN S 
W=SL 

2744 PRINTHWS"WARSRIPS", ,MW3"MERCHANT SH 
IPS" 
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2758 PRINTAW;"ARMY REGIMENTS", SW3"MERCEN 
ARY REGIMENTS" 
2768 WS=WS-WW >MS=MS=MW:LASLA-AW :MH=MH-SW 
2278 LN=RLM=MW *=LN=LN-WW zRETURN 
2780 SCHA(CLATLN+LMtLE tL SI41OB+TR«2tPO0750 
34CTN-152803 
2790 CLS:PRINT"YOUR SCORE IS "3sINT(SC]:G 
OSUB 2830 
2800 IF TL=@ THEN 2810 ELSE RETURN 
2812 PRINT"THANK YOU FOR PLAYING DOGE OF 
VENICE" 
2820 STOP 
2830 PRINT“any key to cont” 
2840 IF INKEYS="""" THEN 2840 ELSE RETURN 
2850 PRINT"your people are starving? 9" 
2860 PLAY"OSTSFFFF":IF FL=1 THEN 2890 
2870 IF FL=2 THEN 2980 
2880 PRINT"THEY HAVE GOUGED OUT YOUR EYE 
S ANO BEATEN YOU TO A PULP999" :FL=FL +) :G 
OTO: 1858 
2890 PRINT"they have revolted":GOSUB 198 
B:PRINT’ THEY HAVE CUT OFF YOUR LEFT HANO 
AND BEATEN YOL! TO A PULP again??" :GOSUB 
1960:GOTO 18508 
2588 PRINT"youve starved your people aga 
inggoe 
29!0 PRINT"IN PUNISHMENT YOU HAVE BEEN 
EXILED TO ROW ON THE GALLEYS FOR THE 
REST OF YOUR LIFE" 
2928 PRINT" YOU HAVE tOST":PLAY"O)] TIGGG" 
25930 CLS 2 
2948 PLAY “TS802DCDCEFGO3AAGGF FOZGFDEACA 
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2356 
23606 
2376 
2386 
2336 
3666 
3616 
3626 
3636 
3646 
3856 
36668 
38768 
3886 
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CLS RNOCB) 
FOR GG=) TO 32 
POKE 3152+%,61 


K=K+] 
PLAY “TZ2@B03FNA04A” 
NEXT GG 


PRINT@192, TABCS) “OOGE OF VENICE" 
FOR GG=1 TO 32 

POKE 1248t%, 61 

K=Kt] 

PLAY “TZ2@G03GFA0ZA” 

NEXT GG 

FOR OM=1 TO S@GzNEXT 

RETURN 


Gold Rush 


For the next twenty years you are the mayor of a booming 
gold-mining town in the American west of the early 1800s. To 
keep the population happy, you must keep them well fed. 
Your gold can be traded for food and for and. The amount of 
gold your town produces relies on the amount of land it has to 
work and the population of the town. Each unit of land costs 
ten units of gold, and each food unit also costs ten units of 
gold. One food unit will feed approximately forty to forty-five 
people. 

The computer will give you the opportunity to expand the 
size of the town by buying more land. You wilt! also be given 
the chance to buy food for the people. If you buy too little 
food, you may suffer badly at the hands of a hungry mob. On 
the other hand, if you overfeed the population, the number of 
people living in your town will increase dramatically, giving 
you further problems. 

The program is quite staightforward. Variable P is the 
population, variable G is the amount of gold you have, and 
variable L is the tand available. Lines 80 to 120 PRINT your 
yearly status. 

Lines 140 and 190 allow you to buy food and land. Line 230 
works out the amount of food you need to feed the people in 
the town and tells you if you haven’t boughtenough. Line 240 
works out the poputation for the coming year, based on the 
amount of food you purchased. Line 260 works out how much 
gold the townsfolk were able to mine. 

The end routines start at line 330. If you have been a good 
mayor and the townhas prospered during your twenty years of 
government, lines 360 to 44@ PRINT out the results of your 
hard work. 

If you allow the population to fal! below 150, the town isn’t 
able to support itself, so lines 450 to 660 tell you that you have 
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made the town bankrupt. This routine is also called up if you 
try to spend more gold than you have in the bank. Note the 
odd sounds produced by the sound routine in lines 500 to 650. 

Lines 670 to 869 work out what happens if you starve the 
townsfolk: first, line 759 tells you the people are starving, then 
line 769 gives you a 50-50 chance of surviving the crisis. If you 
weather the storm, line 789 tells you that you still have the 
support of the people, and line 80@ sends the program back 
into the main part of the game so that you may attempt 10 
correct the situation in the next year. If you lose popular 
support, line 810 gives you the bad news. 


1@ REM GOLD RUSH 

2@ GOSUB Bea 

38 P=4a80 

44 G=108a 

54 L=108a8 

6@ FOR Y=1 TO 28 

7@ CLS 

6A PRINT@ 72, “YEAR?:";13 "OF TWENTY” 
9@ PRINT 

148 PRINT "POPULAT ION:"; INTCP) 

114 PRINT "AMOUNT OF LAND:"5L 

124 PRINT "GOLD IN BANK:"36 

138 PRINT 

14@ INPUT "HOW MUCH LAND TO BUT" ;W 
1S@ G=G-Ws18 

164 IF G<@ THEN PRINT "NO GOLD LEFT" :GOT 
O 458 

17@ L=L+W 

184 PRINT 

19@ INPUT "HOW MUCH FOOD TO BUY" ;W 
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288 GeG-Wk1G 
214 IF GC@ THEN PRINT “NO GOLD LEFT" :GOT 
O 45a 
224 R=RND(S)+5 
238 IF P-WkKRXS>P/4 THEN PRINT:PRINT “ no 
t enough food to feed people" :GOTO 67a 
244 P=P+RNDCWAR XS-P) 
25@ IF P<1S@ THEN PRINT "FHE TOWN HAS LE 
SS THAN 15@8":PRINT "PEOPLE LEFT" :GOTO 45 
a 


268 G=G+INTCP L/S) 

27@ FOR DD=2 TO S@A:NEXT 

288 CLS RND(B) 

234 FOR DD=1 TO S@@:NEXT DD 

388 NEXT Y 

314 GOTO 3248 

328 FOR DD=1 TO 15@@:NEXT DD 

334 CLS 2 

344 PRINT TABC8) "you have retired" 
358 PRINT ?PRINT 

368 PRINT “GOLD IN BANK="36 

378 PRINT 

368 PRINT "LAND OWNED- "3$L 

398 PRINT 

484 PRINT “POPULATION IS NOW"; INTCP) 
418 FOR GG=! TO 6 

420 PLAY "TZ25GU3G02FFFFARAACCCCEFEE” 
938 NEXT GG 

444 GOT044a 

45@ FOR DD=) JO 1@@@:NEXT OD 

468 CLS @ 

478 PLAY "T1EGU380ZEGGAARAAAF FFFFFGGGGGGG 
GGGGGE" 
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4aG PRINT@ 192, TABC8) "YOU ARE BANKRUPT 


490 BS="T1aaN38" 

5@@ FOR GG=] TO 58 

51@ XD=RNDC3) 

52@ IF XD=i THEN C#="01" 

538 IF XD=2 THEN C$="02" 

54@ IF XD=3 THEN C#="03" 

558 PLAY BeiPLAY Cs 

568 DX=RND(7) 

57@ IF DX=1 THEN AS="A" 

Sag IF DX=@ THEN AS="B" 

598 JF DX=3 THEN Ag="C" 

608 IF D&=4 THEN AS="D" 

G14 IF DX=S THEN Age"E" 

628 IF DX-G THEN AS="F" 

638 IF DX=7 THEN AS="G" 

648 PLAY Ag 

658 NEXT GG 

664 GOTO 668 

6?@ FOR DD=)] TO 1@@@:NEXT DD 
6a@ CLS 3 

6948 FOR GG=l TO & 

7@8 SOUND 14,5 

718 FOR DD=) TO 2@5:NEXT OD 
728 SQUND 5,5 

738 FOR DD=] TO 25:NEXT DD 
240 NEXT GG 

75@ PRINT@ 128, TAB(4) "THE PEOPLE ARE S 
TARVEING" 

768 IF RNDOC1@]<6 THEN GOTO 318 
77@ FOR DD=1 TO 1LS@@:NEXT DD 


Gold Rush 143 
786 PRINT@ 224, TABLS) “they stilt suppo 
Tt you" 
730 FOR DO=1 TO 2080:NEXT OD 
800 GOTO 240 
810 PRINT@ 224, TABLS) “you have been ly 
ached" 
820 FOR GG=1 TO 18 
830 PLAY "T25QU3004GGGGGAAAAAAGGGGGAAAAA 
GGGGGGGAAAARAR” 
840 FOR DO=1 TO 5SO:NEXT OD 
858 NEXT GG 
860 GOTO 86a 


882 XX=RND(8) 
890 IF XxX=1 THEN GOTO 880 
988 CLS XX 


910 FOR ss=20 TO 102 STEP 3 
9328 SOUND SS,j 

930 FOR O0=1 TO SSk2:NEXT 0 
348 NEXT SS : 
958 H=160 

368 FORAA=1TO6 

970 PRINT@ H, TABCIO)"GOLD RUSH" 
380 SOUND RND(25)+10@, 1} 

998 FOR DD=) TO 220:NEXT OD 
1880 H=Ht+32 

1818 NEXT AA 

1826 FOR DD=1 TO SOO:NEXT OD 
1830 RETURN 


Farmer Jack 


Farmer Jack is a simulation of farming life in the 1950s. The 
program begins with you, as Farmer Jack, aged about thirty, 
and it ends when the goodly farmer retires at the age of fifty. 

The object of the game is to manage your farm and run it at 
a profit to provide a comfortable retirement for your later 
years. 

At retirement age all your assets are added up. These will 
include your bank account, the value of your land and a 
proportion of the value of your capital equipment. 

Farmer Jack must juggle his available finances and make 
decisions about which crops to plant, whether or not to 
mechanize his operations, should he irrigate his crops and is it 
wise to buy more land. He must also cope with rising labour 
costs and the occasional natural disaster. 

If Farmer Jack weaves his way successfully through al! these 
decisions and problems, the computer will reward him with 
the title of SUPER FARMER. 

At the start of each year the computer will give you a 
complete list of all the vital facts and figures that you will need 
to know about Golden Creek Farm, Read through this infor- 
mation very carefully each turn: many of the decisions you will 
have to make will be based on these facts. 

If credit is available at the local bank, you will be given the 
opportunity to borrow money, but please be sure that you can 
meet the repayments. You will also find it is very good to have 
enough cash on hand to pay your minning costs each year. If 
you have a negative bank balance at the end of any year, you 
will be declared bankrupt. The shame of this could stay with 
you for the rest of your life. 

Each year you will also be given the opportunity to buy 
capital equipment and more tand. Expanding the size of your 
operation is necessary for economic growth. You must also 
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consider the benefits ofmechanization to your crop yield. And 
the computer will give you the chance to sell off parcels of land 
if the need for this arises. 

The next decision that will face you concerns irrigation. 
Although you may find that this is expensive, it should give an 
increased yield at harvest time. 

Another important decision that you will then be required 
to make is which crop to plant? The computer lists them in 
order of profitability. But beware, planting the same crop all 
the time may exhaust your fand, It may be wise to go fallow 
from time to time to conserve your soil. 

After Farmer Jack has made his decisions and put in much 
hard work, he must then wait to see how well he has done at 
harvest time. It is during this time that many heartbreaking 
disasters can occur, events that are completely out of Farmer 
Jack’s control. Drought, flood or a blight could devastate his 
crops, or perhaps he might fal! foul of the Farm Labourers’ 
Union if he doesn’t agree to their requests for more pay. All 
Farmer Jack can do at this time is just sit it out and wait to see 
what happens, 

Inflation will make the price of land rise during the course 
of the game. This increase will also be reflected in the wages 
he must pay his farm workers, As your farm grows, it may 
become necessary to hire more workers to get the jobs done. 

Every so often other problems will plague you. Farm 
machinery may let you down and need to be replaced. Or 
perhaps your barn may catch fire. There isn’t much you can 
do about problems such as these except grin and bear them. A 
farmer’s life wasn’t meant to be easy! 

The program of Farmer Jack is essentially just one big toop 
from line 130 to line 2460. We keep going through this loop 
unti! Farmer Jack’s age reaches fifty (variable FA in line 
2430). We drop out of the toop if the good farmer goes 
bankrupt. This, at first glance, may not seem to be a very good 
programming technique, but after trying several methods it 
was the one that worked the best. 

Line 110 sets up your opening bank balance (BB), gives you 
a tractor (TR) and a truck (TK). It also gives you one barn 
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(BR) and sets the starting size of Golden Creek Farm at 300 
acres (AC). 

Line 120 gives you the amount of money the bank is pre- 
pared to lend (AL), And it sets your starting age (FA), the 
wages of your workers (PR), the number of workers (LB) and 
the current price of land (LC). 

Lines 130 to 300 print out all the vital information you need 
each year. The routine in lines 330 to 430 allows you to borrow 
money from the bank and works out your repayments. 

The section in lines 500 to 630 checks to see if you need to 
replace a tractor, truck or barn. Lines 670 to 1000 allow you to 
make your purchases each year, Lines 1020 to 1150 permit 
you to sell land if this is required. 

The irrigation of crops is handled by lines 1160 to 1250. The 
section 1270 to 1560 allows you to choose which crops you are 
going to plant, and works out all the relevant computations 
resulting from this, such as the exhaustion of the soil and the 
cash value of the crop. 

The section in lines 1580 to 1720 controls the natural dis- 
asters which may befall you and affect your harvest yield. 

The unions and their wage demands are handled by lines 
1740 to 2020. Lines 2040 to 2090 take into account all that has 
happened during the course of the year and work out how 
much money you have made from the sale of your crop. 

The next routine, lines 2110 to 2220, then advises you of 
your expenses for the year and gives you your net income. 

The breakdowns and other problems that occur from time 
to time are controlled by lines 2230 to 2410. Lines 2430 to 
2460 check to see if Farmer Jack has gone bankrupt or if he 
has reached retiring age. If all is well then line 2460 returns us 
to the start of the loop for the next year in the life of Farmer 
Jack. 

Lines 2470 to the end of the program arrange for the sale of 
the farmer’s assets and work out his retirement conditions. 
You are then told how comfortable or otherwise your re- 
tirement is likely to be. 

This type of program is an excellent one for continuous 
adjustment and refinement. We have given you the basis of 


Farmer Jack 147 


what could be an extremely large and complex economic 
simulation. It would be a good exercise'for you to develop 
your programming skills by refining this program and tailor- 
ing it to your own requirements. 

It is basically an easy program to understand and we have 
tried to make it simple to follow, so please your own abilities 
to expand it into a unique game of your own. 


18 REM FARMER JACK 

28 CLS 

34 FOR P=1 70 4 

4@ PLAY" T250U 3G03GGGCCCFFFGGGFFFAAAP2" 

S@ NEXT 

68 CLS(4) 

74 PRINT@16@;" WELCOME??2 YOU ARE FARMER 
JACK, YOUR TASK IS TO MANAGE GOLDEN CR 

EEK FARM FOR THE REST OF YOUR LIFE OR UN 
TIL YOU RETIRE "5 

@@ FOR I=i TO 3@8@:NEXT 

94 PLAY "T25801U 3GAAAAAAGGGGGGOZCCCCCCAA 
AAAAoICCCcccce” 

148 CLS 

114 BR=3088 sTR=1 + TK=1 *BRei :AC=3a8a8 

124 AL=588@ :FA=RND( 11 )+29:PR=2008 -LB=G :L 

C=1848 

134 PRINT@@;“YOUR SITUATION IS" 

14@ PRINT" BANK BALANCE = #";BB 

15@ PRINT“YOUR AGE IS “3FA 

16@ PRINT"YOU HAVE" 

174 PRINTTR:"TRACTORS °3 

184 PRINTHD; "HEADER" 

198 PRINTHU; "HARVESTER “3 
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288 PRINTTK; "TRUCKS" 

214 PRINTAC;"ACRES "; 

228 PRINTBRj "BARNS" 

230 IF IB=@ THEN PRINT" NO"; 

24@ PRINT" IRRIGATION ON YOUR FARM" 

25@ PRINT“EXHAUSTION LEVEL OF LAND =";EA 
p"a" 

264 PRINT"NUMBER OF LABOURERS = "3i8 

27G PRINT"LABOURERS PAY RATE IS $"3PR 
284 PRINT"LAND COST vACRE=$"5LC 

29@ PRINT" AMOUNT OF MONEY BANK CAN LOAN 
IS $"3AL 

3@@ PRINT TAB(33"";:GOSUBI@1@:CLS 

320 IF AL=G THEN 482 

33@ PRINT@13@,"00 YOU WISH TO BORROW MON 
EY":PREINT TABC6) “FROM THE BANK CY/N)"; 
34@ AS=INKEY$:1FAS$="N" THEN 468 

358 IFAS4¢>"Y" THEN34@ 

36 PRINTAS:PRINT"HOW MUCH DO YOU WISH T 
© BORROW" ; : INPUTMB 

374 IF MB>AL THEN PRINT" TOO MUCH. YOU C 
AN ONLY BORROW $" ;AL :GOTOR6A 

38G YL=5-FA 

398 IFYL>=2@ THEN YL=28 

488 LT=LT +18 :AL=AL-MB8 

41@ RP=INT(LT#27YLI1+5 

420 BB=88+1B 

438 PRINT" YOUR ANNUAL REPAYMENTS ARE $"j 
RP 

46@ PRINT 

478 PRINT"YOUR BANK BALANCE IS $" ;88+60S 
UB1G1a 

488 IFTR=} GOTOS2a 
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490 FG=l 
500 IFTR=@ THEN PRINT" YOU MUST BUY A TRA 
CTORCCOST $5000) 
510 IF TR=@ THENBB=BB-5000 
520 TR=l 
530 IF TK=@ GOTOS5a 
540 IF ACVYTK <999 THEN 590 
55@ PRINT" YOU NEED BUY ANOTHER TRUCK (CO 
ST $1600)" 
560 FG=1 
570 BB=BB-100006 
5a@ TK=TK+] 
590 IF BR=@ THEN 616 
666 IFACZBR<999 THENSEG 
616 PRINT" YOU NUST BUILD ANOTHER BARN" :P 
RINT" (COST $3600) 
620 FG=1 :BB=BB-3000 :BR=BRr1 
636 GOSUB1G1G 
666 CLS :FG=@ 
6&7@ PRINT" YOUR BANK BALANCE IS $" ;BB 
6a@ PRINT" DO YOU WISH TO BUY:;-" 
696 IF HD=1 THEN 700 ELSE PRINT"HEADERT! 
3-$15000" 
700 IF HU=1 THEN? 26 
71@ PRINT "HARVESTER( 2)-$15000" 
720 PRINT"MORE LAND(3)-$"5LC;"7ACRE" 
730 PRINT"NO PURCHASES([4)" 
740 CS=INKEYTS21F C$="" THEN/Z4G 
730 ON UVAL(CS) GOTO 860, 98aG, 960, 1640 
aa0 ? 
810 IF HD=1 THEN PRINT" YOU ALREADY HAVE 
A HEADER" :FORI=1T0100G:NEXT :GOT O66 
€@26 BR=BB-15000 
830 HD=1 
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840 PRINT" YQU HAVE PURCHASED A HEADER" 
850 GOSUB1G1G 

870 GOTO6EG 

aaa? 

890 IFHU=1 THEN PRINT" YOU ALREADY HAVE A 
HARVESTER" :FORI=1 T01G0G:NEXT : GOT C660 
966 BB=B8- 15000 

916 PRINT" YQU HAVE PLRCHASED A HARVESTER 
920 GOSUBIG1G 

940 HU=1 

950 GOTO6ES 

960 PL=1:PRINT"HOW MANY ACRES DO YOU WIS 
H TO PURCHASE” ;:INPUTAL 

965 IF BBA C<1 THEN PRINT "YOU CAN'T AFF 
ORD TO BUY LAND” :GOSUB1616:GOTO6ES 

970 IF AlxXLC>BB THEN PRINT" YOU CAN ONLY 
PURCHASE" ;INTCBBYLC) ;"ACRES" :GOSUB1G10:6 
OTO6ES 

986 BB=BB~(LC#AL) 

994 AC=ACtAl 

1060 GOSUB 1616 :GOTO6ES 

1014 PRINT TABCLE)"any key to continue" 
1626 IF INKEY$=""THENL@2@ ELSE FOR [=I 
TO 1660:NEXT :RETURN 

1646 IF PL=l THENL15@ ELSE CLS 

1656 PRINT@13G,"00 YOU WISH TO SELL ANY 
LAND" :PRINT TABCIZI" CY“NI"; 

1666 AS=INKEYS !IFAS=""THENIGEGELSE IFAS=" 
N" THEN PRINT:GOTO 1150 

1670 IFASO"T" THENIG5G 
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1@8@ PRINT"HOW MANY ACRES DO YOU WISH TO 
SELL" 3: [NPUTAZ 

1@9@ [FAZ>AC THEN 1088 

11@@ AC=AC-AZ 

111@ BB=BB+(LC&kA2Z) 

112@ PRENT" YOU HAVE SOLD ";AZ;"ACRES AT 


$" GLC; “ACRE” 

115@ CLS(1) 

116@ PL=@:PRINT@130;"DO YOU WISH TO [RRI 
GATE YOUR CAND(COST $1 /ACREICY/NI"; 


1120 AS=[NKEY$ [fF AS=""THENI] 17@ELSEIF As= 

"N" THEN 1270 
118@ IFAS<>"Y"THENI 150 

1190 IIl=t.3 
12@@ BB=BB-AC 
121Q PRINT 
122@ PRINT" YOU HAVE IRRIGATED YOUR CROPS 

FOR THIS YEAR; “ 

1230 GOTO125@ 

1258 GOSUBI@10- 

127@ [l#):CLS:PRINT 

1280 PRINT"WHICH CROP DO YOU WISH TO SOW 
el 

1290 PRINT" BARLEY(1)" 

13@@ PRINT"WHEAT (2)" 

131@ PRINT"PEAS (3)" 

132@ PRINT" FALLOW(4 J" 

133@ IFEA>S99 THEN PRINT" YOUR LAND IS RUN 
DOWN. YOU CAN" :PRINT"ONLY PLANT PEAS OR 
LEAVE IT FALLOW, " 

134@ C&=INKEYS:IF Cé="" THEN 1348 
1345 FOR [=1TOS5@@:NEXT 


152 Simulations 

1350 IFC#="1"" THEN PRINT” YOU HAVE PLANTE 

D BARLEY” -GOTOH418 

1366 JFC$="2" THEN PRINT"YOU HAVE PLANTE 

D WHEAT” :GOTO 2478 

1370 IFCs="3" THEN FOR DD=) TO S@@:NEXT: 

PRINT’ YOU HAVE PLANTED PEAS" :GOTO1S38 
1386 IF C#>"4" THENI340@ 

1396 FOR OD=1 TO SQB:NEXT 

1488 PRINT"YOQUR LAND IS FALLOW THIS YEAR 
"FOR DO=1 TO S@B:NEXT:EA=O:CLS:GOTO 2!2 

Q 

1418 APF1 

1426 IF EASSS THEN PRINT"YOU CAN’*T PLANT 
THIS CROP” :FORI=1 TOSQ0 -NEXT :GOTO1340 
1438 AW=1 

1448 AB=1+CRND(S)-13718 

1458 EA=EAt15 

1468 GOTO1S60 

1478 AP=1 

1486 IFEAXSS THEN PRINT” YOU CAN*T PLANT 
THIS CROP” :FOR T=1TO1@@:NEXT :GOTO! 340 
1498 ABSi 

1506 AW=,2+RND(S)728 

1516 EA=EAt1 

1528 GOTO1S60 

1530 AB=i 

1548 AW=1 

1558 APs. StRND(S)/18 

1568 GOSUP1818 

1586 RF=RNDC18) 

1598 DR= 188 

1686 JFRF=1 THEN DR=5@-RND(SQ) 

1618 FL=1e808 
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162@ IFRF=1@ THEN FL=5@-RND(5@) 

163@ IFRF=1 THEN CLS(4):PRINT@192; TABCI@ 
J"DROUGHT" :PRINTI@@-DRj"x OF YOUR CROP I 
§ RUINED" 
164@ [F RF=3 THEN FL=1@@-RND(5Q) 

165@ IF RF=9 THEN CLS(3):PRINT@192; TABCA 
J"EXCESSIVE RAINS” :PRINTI@@-FLj"* OF YOU 
R CROP IS RUINED" 

16606 IF RF=2 THEN DR=1@0@-RND(5@) 

167@ IF RF=2 THEN CiLS(4):PRINT@192, TABLA 
"LACK OF RAIN’ (PRINT1@@-DR ;"2 OF YOUR C 
ROP [& RUINED” 

168@ IF RF=1@ THEN CLS(3):PRINT@192, TABC 
12)"FLOOD":PRINT 1@@-FL3"z OF YOUR CROP 
IS RUINED" 
169@ [F RF=3 THEN CLS(7) :?PRINT@192;,TABC1 
2) "BLIGHT" (PRINT RUINS 10% OF YOUR YOUR 
CROP" :BL=.9:GOTO 1720 

17@@ BL=)] 

1710 IF 3<RF ANDO RF <=a THEN CLS:SK=1 :GOT 
0174 
172@ PRINT :GOSUBI@1@ 

173@ SK=1: CLS:IF LB=@ FHEN2@4@ 

174@ IF LB=@ THEN 2@4@:PRINT"LABOLRERS DO 
EMAND A PAY [NCREASE?" 

175@ IF MU=) GOTO 1830 

1768 PI=RNDL2@) 

17706 PRINT "THEY DEMAND A";FPI3°% PAT RIS 
Ege 

1798 ST=RND(1@@) 

18@@ PRINT "THERE [5 A" 3ST" % CHANCE THAT 
THEY" (PRINT@128, "WELL STRIKE IF IT IS N 
OT GRANTED" 





2.8-4.5,—20 


153 
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1816 IF MU-@ GOTA 18aG 

1826 FORI=1TO160@:NEXT 

1836 PRINT "BECAUSE YOU REFUSED THEIR CL 
AIM LAST YEAR THE UNIONS HAVE" :PRINT"INC 
REASED THEIR CLAIM" 

1846 PI=INTCPI¥1,5)+3 

185@ ST=INT(STA23+5 

1860 PRINT"THE UNIONS NOW DEMAND A" ;PI 5" 
x PAY RISES" 

187@ PRINT"THE CHANCE OF THEM STRIKING I 
S":PRINTSTj"%", 

18a@ PRINT 

1854 PRINT "OO YOU WISH TO PAY THE INCRE 
ASE CY/“N)" 

19@@ AS=INKEYS$:1F AS="" THENISOG 

1510 IF AS="Y" THEN PR=INTCPR&PI7100)+PR 
‘MU=@:SK=1?PIl=@:ST=@:GOTO 2020 

1526 [FAS<>"N" THENIAS@ 


1536 CLS 
154@ PRINT" THE UNION LEADERS ARE IN"?PRI 
NT" CONSULTATION" :FOR I=1 TO 1606 :NEXT 


1550 UB=RND(100) 

1566 IF UB>ST THEN PRINT"THE UNION HAS 0 
ECIDED NOT TQ: STRIKE" -MU=l ¢Sk=1 -GOTO 

2020 

1957@ PRINT" THE LABOURERS ARE OUT ON STRI 
KE" 

1584 PRINT’ YOUR HARVEST IS GOING TQ BE": 
PRINT"REDUCED BY 20x" 

155@ PRINT "IT WOULD HAVE BEEN WORSE IF 

YOUR FAMILY HAON’T HELPED" 

2086 MU=-G 

2010 Sk=.a 
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2828 GOSUB! 218 

2838 CLS 

2040 IF HO=0 THEN OI=1 ELSE OF=1.5 

2058 IF HU=Q THEN VI=] ELSE Ul=1].5 

2068 PRINT®#9B,"f AM WORKING OUT YOUR HAR 
VEST’ :PRINT TABC! Z2)“RETURN’:FOR I=1 TO? 
BRB sNEXT 

2878 HR= INT CACKAPXABXAWKFL/ 1 BBXDRZ 1 BOXBL 
XSKXO] XU] XI 1 X20*£130-EAI7108) 

2080 PRINT@192,; "TOUR HARVEST RETURN IS & 
“SHR 

2090 PRINT#334, "3 :GOSUB1019 

2110 BB=BBtHR -CLS 

2120 PRINT “YOUR BANK BALANCE IS $" jBB 
2138 BB=BB~(PRXLBI:IF LB=2 THEN2158 

2148 PRINT “LESS $"3PRi"PER LABOURER FOR 


2158 
MENT 
3BB 

2160 
21728 
2189 
21399 
2200 
2210 
2220 
2230 
2240 
2259 


WAGES LEAVES YOU WITH $* ;BB 


BB=BB-RP:PRINT"LESS YOUR LOAN REPAY 
OF" :PRINT"S$"3RP3"LEAUES YOU WITH $" 


LB=INTCACZ520) 

A=RNDC2]) 

IF X=] THEN AL=AL+1 900 

LI=RNOC15) 

LE=LE+INTCLIXLE/ 190) 

GOSLB19 18 

CLS RNDC8) 

FG=2 

FOR P=] 70 2 

PLAY "T25BU300 1 CCCFFF GGGGGP 202 AAR AFF F 


CcCcer2" 


2260 
2278 


NEAT 
%=RNOC33-INTCACZ1 B00} 
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2280 IF AC*3200G THEN X=1 

2290 IF X=1 AND TRO@ THEN PRINT "TOUR TR 
ACTOR BREAKS DOWN" : TR=G:FG=1 

2300 X=RNOC 26-TK) 

2310 IF TK>19 THEN X=] 

2320 IF X=1 AND TK>@ THEN PRINT "ONE OF 
YOUR TRUCKS BREAKS DOWN" : TK=TK~-1 :FG=1 
2330 IF RF=L THEN F3=15 

2340 *=RND(20-F3) :F 3-0 
2350 IF X=3 AND BR>@ THEN PRINT’ YOUR BFR 

N BURNS DOWN" :BR=8R-1 -FG=1 

2360 X=RND(20) 

2370 IF X=1 AND HD=1 THEN PRINT"HEADER B 
REAKS DOWN” :HD=@:FG=1 

2380 IF X=2 AND HU=1 THEN PRINT" HARVESTE 
R BREAKS DOIN" :HU=@:FG=! 

2350 If K=3 THEN PRINT "IRRIGATION BORE 
DREES UP":PRINT" PAY COST OF $2000 TO SIN 

K NEW BORE” :BB=BB-2200 -FG=1 

2400 IF FG=@ THEN2430 

2410 GOSUB1G16 

2430 FA=FA+] =F G=0 

2440 IF FA=5@ THEN FOR DD=1 TO 1060:NEXT 
“CLS :PRINT@19S2, “kkk FARMER JACK HAS RET 
IRED X44" :G0TO 24708 

2445 IF RE=@ AND BBtAL<@ THEN PRINT "YOU 
FRE IN THE RED, THE BANK HAS DECIDED TO 
GIVE YOU CREDIT THIS YEAR" :RE=1 :GOSUBIG 
18:GOTQ13@ 

2450 IF RE=]1 AND BBtAL=<@ THEN PRINT "FA 

RMER JACK IS BANKRUPT" :GOTO2516 

2455 IF BBtAL>@ THEN RE=@ 

2469 GOTO 336 
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2470 FS=AB+(AGKLOI+C TR‘2800) +( TK 1000) +( 

BR *)/@GQ) + (HD*3000) + (HU*5000) 

248@ FOR t=] TO 25@@:NEXT:CLS 

2490 PRINT"YOK HAYE FINALLY RETIRED AND 

HAYE" :PRINT"SOLD ALL OF YOUR ASSETS" :PRI 

NT" YOUR ASSETS ARE VALUED AT $"5FS 

2500 J=INT(FS’100000) 

2510 IF J=@ THEN PRINT"IT*S THE POORHOQUS 

E FOR YOU":PRINT"MY FRIEND" 

2520 PLAT" T 2003001 AAAAACCOCCFFFFFCCCCCo 

CECE” 

2530 IF J=1 THEN PRINT"YQU ARE A POOR ST 

RUGGLING FARMER" :PRINT" THERE ISNT MUCH T 

O SHOW FOR ALL": PRINT" THOSE YEARS EXCEPT 
THE PENSION" 

2540 IF J=2 THEN PRINT" YOU ARE AN AYVERAG 

E FARMER" :PRINT"RETSREMENT WILL NOT BE": 

PRINT"TOQ UNCOMFORTABLE” 

2550 IF J=3 THEN PRINT" YOU ARE A GOOD FA 

RMERS 28": PRINT"YOU WILL LIVE IN COMFORT 

DURING" :PRINT" YOUR RETIREMENT" 

2560 IF J=4 THEN PRINT" YOU ARE AN EXCELL 

ENT FARMERS 92" :PRINT" YOU WONT LACK MANT 

LUXLRIES" :PRINT"WHILST YOu ARE RETIRED" 

2570 IF J>4 THEN PRINT@134; "you are a su 

per farmer":PRINT TABC2) "congratulations 
on mastering" :=PRINT TAB[SI "this bby gam 

@4." 

2575 FORI*1T0300@ :NEXT:GOSUBIGLG 

258@ FOR C=@ TO @:CLSC:FOR DDH=1 TO 16@:N 

EXT i NEXT 

2590 FOR P=1 TO 4:PLAT"T15@/03004GGGGGCCC 

CCAAARAAFFFFFP2" !NEXT 
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260@ CLS:PRINT"PLAY AGAIN CY/“N)"3-: INPUTS 
$ 

2610 IF x$="Y" THEN RUN ELSE GOTO 2624 
2624 CLS RND(8]:PRINT@192, TAB{I2)"GOODB 
YE" 

2634 GOTO 2634 


Avalanche 


In Avalanche you are the mayor of an Alpine village which 
suffers from very serious avalanches. Your job is to manage 
the village’s finances so that you are building sufficient 
avalanche shelters for your people without bankrupting the 
town. 

The money sitting in the town treasury attracts a healthy 
interest rate each year. The aim is to survive for twenty years 
in office. Each year the risk of an avalanche increases, so you 
must decide whether you are going to increase your spending 
on shelters or will take the risk and leave the money in the 
bank to attract the best possible interest for future use. 

If you decide incorrectly and an avalanche results in a 
seriousloss of life, you will be removed from office. 


1@ REM AVALANCHE 

20 CLS 3 

3@ GOSUB 420 

40 ST=1 

5@ M=RND{50@@ } +9087 

60 P=RNDC 1000) +2278 

7Q S=O:D=O:N=0 

8@ FOR Y=1 TO 20 

38 CLS 3 

1@@ IF AL=1 THEN AL=0-GOTO 130 
11@ IF Y#20 THEN 3108 

120 PRINT TABLS] "NO AUALANCHES" 
130 FOR XxX=1 TO 2 

14@ PLAY "“O2T4LZ25EEEEEEEEEEFFFFFFFFFF GGG 
GGGGGGG" 
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15@ NEXT XX:CLS 

164 PRINT "year"; 

17@ PRINT “THE CHANCE OF AN AVALANCHE IS 
"328-Y;"TO 1" 

18@ PRINT:IPRENT “THE VILLAGE HAS" ;P;"PEOQ 

PLE" 

198 IF SOB THEN PRINT:PRINT "YOU HAVE"; 

$3;"SQ0. YDS OF":PRINT “ SHELTER" 

208 PRINT:PRENT “THE VILLAGE TREASURY HO 

LOS", "s" 5h 

214 IF 06>@ THEN PRINT?PRINT “THERE ARE" 

3D;"VILLAGERS DEAD" 

220 IF N<>@ THEN PRINT?tPRINT “THERE HAVE 

BEEN "3N;"AUALANCHES" 

238 PRINT:INPUT “HOW MUCH WILL YOU SPEND 


ON SHELTER" 3A 
24@ IF M-A<@ OR S+AC@ THEN 238 
258 M=n-A 


268 Ss=S+INTC2. 7xA) 

278 M=N+INT(M71B+,5) 

2a@ IF RNOC2@-Y)=1 THEN GOSUB 394 

298 P=INTCPt. 254) 

308 NEXT ¥ 

31@ PRINT:PRINT "WELL DONE MAYOR GLUGENH 
EINER" 

32@ PRINT:PRINT "YCU MANAGED TO SURVIVE 

28 YEARS" 

33@ PRINT "IN OFFICE,AND END YOUR TERM W& 
ITH:" 

348 PRINT:PRINT TABC4) “S"5M5"IN THE TRE 
ASURT" 

354 PRINT:PRINT TABC4);P;"PEOQPLE SURUIUI 
NG" 
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360 PRINT:PRINT TABC4) ;S;"CUBIC YARDS D 
F SHEI.TER" 

37@ PRINT:PRINT "YOUR MAYORAL RATING IS” 
j1QXM+2ZO*P+P+S-12*D 

3a@ END 

390 REM *X*AUALANCHE ¥xx 

460 AL=L 
41@ FOR XX=] TO 16:SOUND 25@,)2 :NEXT XX 
420 FOR J=@ TO 56 

430 PRINT TABCI“3)3 "*kavalanchekk" 
449@ FOR E=] TO 220-10kJ iNEXT E 

450 SOUND 100.1 

46@ NEXT J 
470 IF ST<E THEN RETURN 

486 B=INT(S/1G+,5) 

490 IF BP THEN Q=P 

566 PRINT+PRINT @;"PEQPLE ARE SAFE..." 
516 x=R-Q 

520 IF X<] THEN X-@ 

53@ PRINT:PRINT "BUT";X%;"PEQPLE WERE KIL 
LEDg ge" 

546 D=D+x 

550 IF OOP THEN GOTO 636 

560 P= 

5706 S=S-INT(S7)@+.5) 

58@ PRINT:PRINT "THERE ARE" ;S;"CUBIC YAR 
DS OF":PRINT “ SHELTER LEFT" 

596 FOR E=1 TO 30@0@:NEXT E 

60@ IF XP THEN 620 

614 RETURN 

624 PRINT :PRINT 

630 PRINT “the loss of life was” 

640 SOUN) 56,2 
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65@ PRINT "catastrophic... YOU HAVE" 
664 SOUND 58,2 

67@ PRINT "BEEN FORCED TO STEP DOWN" 
684 SQlINDS@, 2 

694 PRINT "FROM THE OFFICE OF MAYOR" 
70@ SOUND56,2 

71@ END 


Gambling Games 


Multipack Twenty-one 


We will now shuffle the cards and play a few hands of 
Pontoon, or Twenty-one. This program plays a real game of 
Pontoon and it plays very well. You will find that you will go 
bankrupt much more often than you are able to break the 
bank. 

You are given a total of fifty chips at the beginning of the 
game and you will be asked at the start of each hand how many 
chips you wish to bet. There is a house limit of five chips. 
Each time you ‘buy’ a card from the bank, it will cost you the 
number of chips you have nominated. The object of the game 
is to keep buying cards until the face value of the cards is 
twenty-one or as near to twenty-one as you dare go. Going 
over twenty-one automatically makes you lose. When you 
want to stop buying cards, just tell the computer that you wish 
to stand. 

An ace can count as a one or as eleven. When you draw an 
ace the computer will ask you which value you wish to use. If 
you choose eleven and, at a later point in that game, your total 
goes over twenty-one, the computer will change the value of 
your ace back to a one. 

When you have decided to stand, the computer will then 
take its turn at drawing cards. The player with the total closest 
to twenty-one will win. 

The bank will also pay out for a total of five under twenty- 
one but you will lose if the game is a draw. 

The game ends either when you have lost all your chips or 
when you have managed to break the bank. 


166 


16 
26 
36 
48 
56 
66 
768 
86 
36 
166 
116 
126 
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REM MULT! PACK TWENTY-ONE 
BOSUB 796 
BB=5G :NC=) 
GOTO 1588 
BOSUE4 260 
BOSUB 88 
BOSLE 546 
BOSUB 448 
GOTO 58a 
cLs 

BOSLB 850 

GOTO 218 


136 CLS G 

146 IF CT<22 THEN GOTO 266 

156 PRINT@ 192, TABCS) “OUER 2199 BUST" 
166 GOSUB 856 


176 


BB=BB-CB: 1 BB<1 THEN GOTO 736 


186 CT=G:2U=6 7G 

196 CYU=G:2T=6:NC#) 

266 GOTO 56 

216 IF CS=11 THEN GOTO 236 
226 GOTO 136 

236 CT=CT-16 

246 CS=6 

256 GOTG 58a 

266 IF C1T>2] THEN GOTO 116 


276 


INPUT C 


286 IF C=2 THEN GOTO 1246 
296 GOSUB 1696 

386 GOSUB 886 

316 Ce-Ce+1e 

326 GOSUB 346 

336 GOTO 566 


Mutipack Twenty-one 
34@ U=U+6 
35@ POKE 111 7+U, 2x 
36@ POKE 1118+U,2U 
37@ ZU=Zu+] 
38a [F 2U>1 THEN GOTO 41a 
394 GOSUB BBa 
44a GOTO 344 
41@ RETURN 
42@ CLS 
43@ PRINT TABL7) “YOU HAUE" 3BB; “CHIPS" 
44@ PRINT TAAC(5) “HRW MANY WILL YOU BET” 
1 
45@ INPUT IB 
468 IF [B>BB THEN 45@ 
47@ IF IB¢] OR IB>S THEN PRINT “PICK AN 
UNBER BETWEEN 1 AND 5":GOTO 45¢ 
48a CB=IB 
498 RETURN 
5@@ PRINT@ 192, “TOTAL="3CT33" YOU HAY 
F";BB; "CHIPS" 
51@ PRINT “CHIPS GET="3CB 
52@ PRINT "WILL YOU... “3°1=BUY", "2=STAND 
534 GOTO 26a 
548 CLS 
558 PRINT TABCS) “I @M DEALING THE CARDS 
56@ FOR CO=1 TO 5 
578 POKE 1@56+CO+CAtCD; 239 
588 [F CO=1 THEN SOUND 222; 1 
59@ NEXT CO 
60a CAstars 
61@ IF CA=38 THEN CA=@:G0TO 624 
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624 GOTO 56a 

634 CO=COr+32z 

644 fF CO=16@ THEN CO=@:CA=@4:PRINT® 4G," 
?RETURN 

654 GOTO 564 

664 CLS 5 

67a FOR AA=]1 TO 8 

684 PRINT 

694 PRINT TABC6) “you broke the bankge" 
7@@ PLAY *L15@02T1 DODDDGOONDEEEEEEEE EEF 
fF FFFFFFF” 

714 NEXT AA 

72@ GOTO 724 

734 CLS 4 

74@ FOR DO=!1 TO 25:NEXT 00 

75@ PRINT® 164, TABCS) “TOURE BANKRUPT” 
76@ FOR OD=1 TO 257:NEXT OO 

77@ PRINT@ 288, TABC}2) “YoU LOSE" 

784 GOTO 78a 

79@ CLS & 

84@ FOR JJ=1 TO 16 


81@ PRINT TABCENT{JJ71.435) “muit: pack t 
went y-one” 

82@ SOUND 244,2 

834 NEXT JJ 

844 RETURN 

85@ PLAY “TS@OifAAFF FGGGDDDEECS FF AAR” 
86@ FOR DD=i TO 1@@4:NEXT OD 

874 RETURN 

Bea 2Y=KNOC133 

esa [F 2ev=1 THEN @X=65 

S@a@ [F 2¥=2 THEN €X=114 

S14 [F @v=3 THEN €X=115 


3228 
3328 
34928 
3508 
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IF 2Y=4 THEN 2X=136 
IF 2Y=5 THEN 2x21]? 
IF Z2Y=6 THEN 2@X=118 
IF Z2Y¥=? THEN 2X=119 


362 IF ZY=8 THEN #X#120 

970 IF 2¥=8 THEN 2X=1 21 

980 [IF ZY=1@ THEN =X=1!13 

990 FF 2v=ll THEN @xX=?4 

1000 JF 2Y=12 THEN 2x=8! 

1018 IF 2¥=13 THEN 2@X#25 

1820 CURZT 

1030 IF 2¥%>18 THEN CUR10 

1248 GOSUB 18308 

1058 IF 2¥<>10 THEN 2U=239 

1060 IF ZY=1@ THEN 2U=122 

1078 CT=CT+CU:NCeNC+] 

1882 RETURN 

1898 IF CUR] THEN GOTO 11108 

1148 RETURN 

1118 GOSUB 16328 

1120 IF 2T=1 THEN GOTO 12128 

1138 PRINT@ 320, “THIS CARD IS AN ACE" 
1148 PRINT "THIS IS CARD NUMBER" 3 NC 
1150 PRINT "CARD TOTAL BEFORE THIS HAND= 
"SCT 

1160 PRINT "WILL THIS CARD BE 1 OR 11"3 
1122 INPUT AS:IF AS=""" THEN 1178 

1182 IF AS="{" THEN CU=1:GOSUB 1690:RETU 
RN 

1190 1F As="11" THEN CU=}1] :CS=11:GOSUIB } 
690 :RETURN 

1202 GOTO 1138 


1218 


IF €T+11>21 THEN Cit=] :RETURN 


Dame 
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1220 CU=11:CS=1]1 

1230 RETURN 

124Q PS=CT:2T=] :PCENC 

1250 2U=@:NC=] :CT=@ 

1268 CS=G:U-o 

1278 GOTO 1588 

1288 GOSUB 54a 

1298 GOSUB 88a 

1308 GOSLB 340 

1318 GOTO 1320 

1328 PRINT@® 192, "YOU HAVE BET" 3CB 
1338 PRINT “YOUR HAND="5PS 

134@ PRINT "MY TOTAL SO FAR="3CT 

135@ PRINT “I WILL..... " 

7368 GOSUB 85a 

1370 IF CT>21 THEN GOTO 1480 

3380 IF CT>16 THEN GOTO 1540 

1390 PRINT "BUY A CARO":GOTO 1290 
1408 IF CS4>11, THEN GOTO 1420 

1418 CS=@:CT=CT-10:GOTO 1320 

1428 CLS @ 

1430 PRINT@ 192, TABC113 “I BUSTENg?" 
1448 GOSUB 85q 

1450 PRINT@® 320, TAB{S) “HOW GIO YOu FLU 
KE THAT?" 

14628 GOSUB 85a 

1470 CLS 

148G IF PS=Z2! AND PC=3 THEN BB=BE+(CBx*2) 
:60TO 1518 

1490 IF PC=S THEN BB=BBt(CBx2):GOTO 1510 
1508 BB=BB+CB 

1518 2T=a 

4520 CT=@:NC=] :2U=a 


1536 
1546 
1556 
1566 
1576 
1586 
15356 
1666 
1616 
1626 
1636 
1646 
1636 
1666 
1676 
1686 
1636 
1766 
1716 
1726 
1736 
1746 
1736 
1766 
1776 
1786 
1736 
1866 
1816 
1826 


1836 
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Y=G:60TO 1586 
CC=C T:CN=NC 
2T=8 :2U=6 :CS=6 
NC=] :V=6:CT=6 
GOTO 1746 





[F @T=] THEN GOTO 1656 
IF BB¢) TREN GOTO 736 
IF BB>33 TEEN GOTO 666 
CLS 

PRINT “ETS YOUR TLIRN™ 
GOSIIB 856 

€T=6:GOTO 56 

CLS 

PRINT SITE MY TURN" 
GOSLB 856 

GOTO 1286 

PRINT@ 326, "" 

PRINT 

PRINT 

PRINT 

RETURN 

PRINT *STAIWO ":REM 3 SPACES 
GOSIJB 856 

CLS 


IF CC*21 AND CN=3 TREN GOTO 1846 

IF PS=21 AND PC=3 THEN GOTO 1866 

IF CN=6 TREN GOTO 1886 

IF PC=0 TREN GOTO 1966 

IF CC=>PS TREN GOTO 1326 

PRINT TABCIZ] "YOU WONS":SOUNO 266, 


BB=BBtCB :GOT0] 3956 
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1848 PRINT TAB{2) “I HAVE A PONTOONS“ :SO0 
UND }228,5 
1850 BB=BE~CCBX2}:GOTO 1950 

1860 PRINT TABCS) "YOU HAVE A PONTOONY": 
SOUND 228,3 
1872 BB=BB+(CBx2):GOTO 1958 

188Q PRINT TABC?2) “I HAVE FIVE UNDER? “:S 
OUND 188,5 
1890 BB=BB-{CBx2]:GOTO 1950 

19308 PRINT TABCS] “YOU HAVE FIVE UNDER’: 
SOUND 288,3:GOTO 1952 

1310 BB=BE+CB 

1920 IF CC=CS THEN PRINT TAB(6) “I BEAT 

YOU ON A DRAW" :SOUNDI08,5:GOTO 19428 

1330 PRINT TABC6) “J BEAT YOU" 3CC3"TO”" 5P 
S:SOUND 1028;5 

19340 BE=BB-CB 

19508 GOSUB 858 :CC=0 :PC=2:PS=0 -CS=0 

1368 GOTO 15808 
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Dragon Dice is actually three games in one. Your clever 
computer, always ready to humble a mere human, has put 
together three dice games to form one big program. 

When the program is first RUN, and after the end of each 
game, the program uses lines 100 to 140 to pick one of the’ 
games at random, then, after a brief delay, begin playing the 
game. So the poor old human doesn’t even get to choose which 
game he is going to be beaten at. 

The three games are dice versions of the card games Chemin 
de Fer, Shark and Seven times Seven. We will now talk about 
each game in turn so that you understand the rules. 


Chemin de Fer 


In this game, you and your computer take it in turns to roll 
five dice, adding the pips as you go. You are aiming to get a 
higher total than the computer. 

However, this game is not just a simple ‘adding the pips’ 
one. Any die which falls showing a 5 or a 2 must be thrown 
again, and your total is just the final digit of the answer (that 
is, a total of 27 is reduced to 7 and a total of 13 is counted as 3. 
If you are unlucky enough to throw a 10, it is counted as zero). 

There are three special totals — 7 (a Natural), 8 (La Petite) 
and 9 (La Grande). The names are only bestowed when the 
relevant total is achieved on the first throw (i.e., the dice 
which came up 5 or 2 have not been, and in this case are not, 
rethrown). You (and the computer) always stand on a 7, 8 or 9 
thrown with the first toss of the five dice. 

Lime 170 clears the screen and the game counter (GA), and 
when the variables for your score (HS) and the computer’s 
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score (CS) have been initialized to zero, the program goes to 
line 49@ where the game proper begins. 

As in many other programs in this book, there is a delay 
loop routine at the end of the listing which is called up a 
number of times throughout the game to improve the speed at 
which the game advances, and to give you a chance to read 
what is printed on the screen before the program races on to 
something else. In this game there are two loops, one longer 
than the other. 

Line 49@ calls a delay and then clears the screen before 
incrementing the counter GA in the next line. You are told 
which game it is by line 51@ and then the computer announces 
that, because it is taking the role of banker, who always goes 
first, it will have the first roll of the dice. The ‘roll the dice’ 
routine from line 21@ is then triggered. You'll see that the loop 
counter G is used (line 228) to set the variable A to arandomly 
chosen value between | and 6 each time through the loop. If 
the die comes up 2 or 5 (line 23@) then it is reset to zero before 
the value is printed by the following line. 

The running total is clocked up on variable D, and then the 
leading digits are stripped from this (i.e., 27 is first cut down 
to 17 and then to 7) by line 300. The changing total is printed 
on the screen each time. After a delay the computer prints up 
“Total on the firstroll is. . .” and then checks (lines 330, 340 
and 350) to see if one of the special rolls has happened. 

If so, a message to that effect is printed. [f not, the com- 
puter gets to line 36@ where it can see if any dice have to be 
rolled again (C is incremented by one each time a 2 or a 5 is 
rolled, see line 23@). [f there is none which has to be rerolled, 
the computer moves on to line 570 to print out “So my final 
total is...”. If, however, C is not equal to zero, then the 
computer runs through another loop (390 to 46@) to throw 
those dice again. Once again, any die coming up 2 or 5 is 
discarded (line 440), 

Once the computer has had its roll, it is your turn to play. 
Your involvement is pretty small at this stage. Once you’ve 
pressed ENTER (lines 600 and 610) the computer takes over 
for you, using the same routine near the beginning of the game 
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to roll the dice for you, and incrementing your total as it does 
so. 
Once both of you have had your turns, the computer then 
decides if it has beaten you, or you have defeated it, or 
whether the two of you have drawn (“Standoff”). The aim of 
Chemin de Fer is to win the majority of nine scoring games 
(and a Standoff does not count as a scoring game). 

“The totals so far in Chemin de Fer are . . .” you are told 
by the computer in lines 850 and 860 and — if nine scoring 
games have not been played — the computer makes some 
comment on the game (“Looks like I’m in front”) before 
returning to the main program. 

Once a total of nine scoring games has been detected (by 
line 900) then the routine from line 990 comes into action. 
“Well, sir, we seem to have come to the end of the game... .”. 
The computer then determines who has been the winner. 

After the game is over the program returns to line 100 where 
the computer picks the next game it wants to play. 


Shark 


Shark demands some cool thinking under pressure. You and 
your computer take it in turns to throw a pair of dice. You add 
the total of the pips, and inturnadd this to your score. 

You can roll the dice as many times as you like, but if you 
roll a 7, you automatically lose. Therefore, as you can see, the 
program demands that you make decisions based on whether 
you should be careful and perhaps lose the round by not 
rolling a high enough total, or whether you should be greedy 
and go for the higher score and risk losing by rolling a 7. 

The time you take to press ENTER to roll the dice has some 
effect on the score you achieve. You can see, in lines 1520 to 
1550, that the variable N (set to zero in line 1520) is in- 
cremented by one each time around the 1540/1550 loop, until 
you press either the “Q” key or the “R” key. 

If you press “R” to indicate that you wish to roll the dice, 
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the computer goes to the subroutine from line 1780 where the 
screen is cleared (1790) and then two dice (X and Y) are rolled. 
The Q loop is covered five times, gradually slowing down as it 
is traversed (by the inner loop, in line 1850), until finally — 
with the line 1890 — the results of the dice rolls are printed. 
The variable Z is set equal to the tally of the two rolls (in line 
1900) before the computer goes to line 2150 for the delay and 
to print a line acrossthe screen, and then returns to the start of 
the program to line 1590, the one after that which sent it to the 
‘roll the dice’ routine. Here the computer checks that the 
total is not 7 (line 1590) and if itis not, then adds the result of 
the latest roll to your tally. 

If, however, you signal that you wish to quit, the action goes 
to the routine from line 1630. After printing STAND BY, the 
computer goes to the delay loop, and line print routine, and 
then uses the same routine as the human did for rolling the 
dice, and — on returning from the subroutine — checking that 
the total wasn’t 7, and if not, adding the new total to the score. 
The computer has a very simple means of deciding if it will 
roll the dice again: if it has less than the human it takes the 


risk. 

You'll find that it is relatively easy to program games like 
this on your computer. Once you’ve worked out the 
‘mechanical routines’ which do such things as roll the dice 
and increment the score for the human player, it is not very 
difficult to work out a routine to enable the computer to use 
the same mechanical routines. Most dice games do not 
demand much ‘intelligence’ and their strategy can often be 
reduced to a few IF/THEN statements. Read books on dice 
games — such as the excellent Dice Games New and Old by 
William E. Tredd (The Oleander Press, New York, 1981) - 
to get ideas for games to turn into programs, and for simple 
ideas on how to play the game as well as possible. It is these 
ideas which you should find relatively easy to turn into 
simple ‘intelligent algorithms’ to enable your computer to 
play well against you. 

And if, as in this case, you stipulate that the human must 
go first, the computer knows exactly what target it is aiming 
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at, and therefore starts a round with a considerable advantage, 
which helps overcome the machine’s inherent stupidity. 

After you and the computer finish a game of Shark, the 
program goes back to line 100 so that the computer can pick 
another game to play. 


Seven times Seven 


Seven times Seven is a computer adaptation of the dice game 
usually called ‘Under and Over Seven’. In this game, you bet 
on the likelihood of the total of a pair of dice landing so that 
the total is: 


- less thanseven 
- exactly equal to seven 
— greater than seven 


This is a game which, at first glance, seems to offier pretty 
good odds to the player. However, if you played the game 
forever with a pair of perfect dice, you’d find that your losses 
would outweigh your wins by about 17 per cent. 

The program structure is not hard to follow. After clearing 
the screen in line 2340, the computer sets the starting stake 
(called M for money) to 30 (thatis $30). Variable GG is also set 
(GG is used to count the number of turns). The game finishes 
after seven turns. Line 2360 sends the action to the subroutine 
from line 2860 where your current money is printed up (“You 
now have $30”) before returning to line 2380 where the delay 
subroutine (lines 2890, 2900 and 2918) is called. 

Lines 2398 to 2460 ask you to place your bet, giving you the 
key for entering it. Lines 247@ and 2480 read the keyboard 
ae NS rejecting (line 2480) any input which is not A, 
Bor. 

Having received a valid choice, the odds are printed up by 
lines 2500 to 2530, and then line 2560 asks you to enter the 
amount of your bet. Of course, you can’t bet more than you 
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have {not in this game, anyway) 50 line 2590 checks your bet 
(A) against your money (M) and if you haven’t got enough 
prints up: “You haven’t got that much?’ 

The next section rolls the dice, assigning random values 
between one and six to variables B and C, and adding them to 
produce total D in line 2670. You are then told of the total by 
tine 2700. 

The outcome is determined by the routine from les 2710 
to 2750 where aloss is first assumed (line 2710, with variable 
W, for win, assigned to the negative of the amount you 
wagered). This is changed, if needed, into the correct amount 
for a win if one has, in fact, taken place. You can see that you 
get paid four times your bet for correctly specifying that the 
dice will come up seven({line 272), and even money for either 
over or under seven (lines 2730 and 2740). 

Lines 2770 and 2780 tel! you about your win or loss, and 
then line 2820 checks that you stil! have some money in hand. 
If you have, the computer goes back for another round of the 
game. If not, you are dismissed with the bankrupt message. 

Line 2840 tests GG {incremented in line 2370) to see if it 
equalsseven. If so, the gameends and you are told how wellor 
badly you performed. Then the program returns to line 100 
for the next game to be picked. 


128 REM DRAGON DICE 

22 CLS B 

30 PRINT@ 192, TABC6] "sax DRAGON DICE 4 
4aRY 

40 FOR TT=1 TQ 3 

52 PLAY "T258VU3B04ADGADGO3A DED 4ANGADGE" 
6B FOR OD=1 TO 5B:NEXT DO 

7B NEXT TT 

88 FOR DD=1 TO 5BB:NEXT DD 

38 (LS 


190 
ord 
110 
126 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
220 
230 
300 
300 
310 
320 
Is" 
330 
NDE. 
340 
ITE. 
350 
RAL, 
360 
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PRINT @ 192, TABC2) “I WILI NOW SELE 
HE GAME WE" 
PRINT TABC6) “ARE GOING TO PLAT" 
FOR DN=1 30 166@:NEXT DD 
X=RND(3) - 
ON X GOTO 150,1480,2320 
REM CHENLA DE FER 
GOSUB 1314 
CLS 
GA=O 
81-0 :P1=0 
GOTO 4% 
D=6 :C=@ 
FOR G=1]1 TO 5:A=RND(63 
IF Af2 OR A=5 THEN CCl 
PRINT A$ 
SOUND 75, } 
GOSUB 1126 
IF Af2 OR A=5 THEN ASG 
D=D+A:NEXT G 
PRINT:PRENE D3 


IF D293 THEN D=D-1@:PRINT:PRINTD: GOTO 
GUSUB 1180 

PRINT:PRINT "TOTAL UN THE FIRST ROLL 
30 

IF D=S THEN PRINT “AND THAT'S LA GRA 
+. RETURN 

JF D=@ THEN PRINT "AND THAT?S LA PET 
+. "GRETURN 

IF P=/ THEN PRINT "AND THAT'S A NATU 
». 'SRETURN 

IF C&@ THEN RETLI&RN 


180 
378 
3388 
398 
4008 
410 
420 
430 
4408 
450 
468 
478 
4a 
498 
508 
518 
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GOSUB 1124 
PRINT:PRINT C;"MUST BE ROLLED AGAIN" 
FOR A#l TOC 
GOSUB 1120 
E=RND (6) 
PRINT E3 
SOUND 75; 1 
IF E=2 OR E=5 THEN E=@ 
DeDtE 
NEXT A 
IF DOS THEN Del-?1@:PRINT D;:GOTO 470 
RETURN 
GOSUB 1128:CLS 
GAFGAt 
PRINT:PRINT TAB(S) "D>> THIS IS GAME 


"SGAS" <<<" 3PRENT 


520 
kk" 
530 
448 
xk" 
550 
560 
3708 
5ag 
598 
HAH" 


PRINT OCR CK CK CK ACK Kok 


PRINT "NOW [ WILL ROI. AS BANKER...” 
PRINT “Gaadadddadacdcdadoidack rok dokdckack 


GOSUB 216 

GOSUB 1168 

PRINT "SO MY FINAL TOTAL [S" 5D 
GOSUB 1100 

PRINT (OG CC OC OO OC OR CK cK 


666 PRINT "PRESS ENTER TO ROLL YOUR DICE 


"yal 
616 
ok" 
620 
630 


NPLIT AS 
PRINT (UGC adda dock ack dk ck 


J=D 
GOSUB 1120 
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844 GOSUB 218 
6206 PRINT-PRINT "SO YOUR FENAL TOTAL [8” 
Fa 
660 PRINT:PRINT 
§7@ GOSUB 1120 
682 PRINT "COMPUTER", "HUMAN" 
696 GOSUB 1180 
700 PRINT J,0 
7123 GOSUB 1120:GOSUB 1120:PRINT 
220 PRINT "“SSSSSSSSSHSSSSSSSSSSSSSS SSS SS 
$$" 
730 PRINT TABC3): 
74@ 1F J=0 THEN PRINT " THAT? S A STAN 
DOFE" :GoTa 7ed 
730 IF JOD THEN@ RENT "[?°M THE"; :81=B8111 
4A@ IF DOJ THEN PRINT "YOUR?E THE"; :P1=P 
Sek 
770 PRINT " WINNER THAT TEME™ 
780 PRINT:PREIN] “SSS$esssssssess ss sss sss 
S$F$ESSFSSSSS" 
730 PRINT :PRINT 
860 FER TT=l TO 3 
810 PLAY "TLOBUSBOSAGAGEF DFOZAF GF" 
826 FOR OD=i TO J@:NEXT DD 
830 NEXT TT 
846 GOSUB 1164 
850 PRINT "THE TOTALS SO FAR [N" 
86@ PRINE "CHEMIN DE FER ARE" 
87@ PRINT B1;"FOR ME, AND" ;PI3"FDR YOU" 
88@ PRINT :PRINT 
890 GOSUB 1120 
900 IF B)1+P1=9 THEN 996 


910 IF Bl>P1 THEN PRENT "LOOKS LIKE [°M 
IN FRONT" 


181 


182 


928 
D HA 
434 
946 
958 
968 
370 
388 
938 
1888 
1616 
1620 
1636 
1848 
1650 
OMe" 
1060 
HA" 
1678 


1080 
1696 
1100 
L116 
1126 
1130 
1148 
1158 
1160 
TIS 
1260 
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IF PI>B1 THEN PRINT " AND YOU SEEM T 
UE THE EDGES" 

GOSIIB 120@ 

FOR TT#i TD 5 
PLAY "T250U3803AF GAFGAFGOZAFGFGFG" 
FOR DD=1 TO 2@:NExT DD 
NEXT TT 
GOTO 494 
REM END OF GAME 

PRINT :PRINT 

FOR TT=1l iu 5 

PLAY “T25@U3Q03AF GD4AF O3AFGOZAFG" 
FOR OD={ FO 10:NEXF OD 


NEXT TT : 
PRINT "WELL, SIR; WE SEEM TO HAVE C 
PRINT "TO THE END OF THE GAIE...WLi 
PRENT "TOTAL OF NINE SCORING ROUNDS 
GOSUB 110@:GOSIIB 1160 

GTO 11468 

FOR DO=1 TO 1@@G:NEXT DO 

RETURN 

FOR DD=t 7O Sa@:NEAT DD 

RETURN 

CLs 


PRINT :PRINT:PRINT :PRINT 

IF P1>Bl THEN PRINT "AND FOR ONCE | 
YOU WHO" :PRINT “BEATEN ME22" :GOSUB 
:GOTQ 1186 
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31?@ IF BidP1 THEN PRINT "AND ONZE AGAIN 
THE MIGHTY DRAGON" :PRINT TABC14) "WINS? 
®":GOSUB 1268:GOTO 1184 

118@ FOR DD=] To 3S5@@:NEXT OO 

119@ PRINT:?PRINT#PRINT:PRINT " THANK YO 
U FOR THE GAME; HUMAN" 

32@@ PRINT:PRINT "WE WILL PLAY AGAIN son 
ETIME SOON* 

1210 FOR SS=)@0 TO 2a@ STEP 3:SOLIND SSs1 
*NEXT SS 

1220 FOR SS*#205 TO 935 STEP ~S:SQUND SS,) 
‘NEXT SS 

123@ FGR Del TO S@a@@:NExT OD 

1240 CLS 

125a GOTO 10a 

1260 FOR TT=1 To S 

1272 PLAY “TZ250U3G0}ACBFSO2G6F DECO3SADFGED 

O4AF AF AD3ADF GFODZAFAFAFOZAFAFGGGG" 

128@ FOR OD}] TO 3@:NEXT OD 

tz9@ NEXT TT 

1344 RETURN 

1318 CLS 4 

Y220°FOR TT#]1 Ta 5 

1330 PRINT@ 192, " " 

1340 FOR DD=] TO )@@:NEXT OD 

1358 PRINT@ 192, TAB[S] "CHEMIN DE FER" 
'360 PLAY "T296U30 OSAFGAFGGFAGFA” 

13708 FOR OD=) TO 1@@:NeEXT OD 

138@ NEXT TT 

1390 RETURN 

144@ REM SHARK 

1414 GOSLB 2270 

1428 CLS 
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1430 
1°44 
1454 
1464 
1474 
1484 
1434 
1544 
1514 
1324 
1534 
1544 
1554 
38 
1564 
1570 
1588 
1534 
1604 
1614 
1620 
1634 
1648 
1654 
1664 
1674 
1684 
1690 
1740 
1714 
ATge" 
1724 
1734 
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H=@:CZ=G 

HS=@:CS=@ 

PRINT “FLERSE STAND BY,....” 
GOSUB 2158 

CLS ‘PRINT :PRINT =PRINT 

PRINT “YOUR TOTAL IS"3HS:PRINT 
GOSUB 2164 

PRINT “PRESS °R? TO ROLL" 
PRINT "PRESS *Q* TO QUIT" 

N=@ 

W=INKE YS 

N=Ntl 

{fF WS<>"U" AND bIfO"R" THEN GOTO 15 


SOUND 125;2 

IF Ws="0" THEN 1634 

GOSUB 1/84 

IF 2#? THEN 1758 

HS=HSté 

PRINT:PRINT "YOUR TOTAL IS" 3HS 
GOTO 1464 

PRINT?PRINT:PRINT "STAND BY...” 
GOSUB 2154 

GOSUB 1784 

IF 2-7? THEN 1746 

CS=CStZ 

PRINT:PRINT "Ii¥ TOTAL IS"3CS 
PRINT “YOUR TOTAL IS"3HS 

IF CS<HS THEN 1634 

TF Cs=HS THEN PRINT "IT*S A DEAD HE 


IF CS>HS THEN 1764 
GOTO 1934 


1748 
1258 
27648 
1778 
17848 
17348 
1848 
1816 
1824 
1838 
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PRINT:PRINT “YOU WIN?" :H=H+) 

GOTO 1934 

PRINT:PRINT “I WINS 92° :Cz=Cz+1 

GOTO 1934 

REM ROLL TRE OfCe 

cis 

FOR Q=1 TO 5 

x*RNOCG) 

Y=RNOCG) 

PRINT:PRIWT “DIE ONE?"3%3" DIE TW 


or"sy 


1844 
1850 
1868 
1878 
188 
1894 
1984 
1914 
1924 
1934 
13-44 
1954 
1964 
1976 
1.384 


PLAY "“T25WU3B0ZAF AFA" 

FOR P=1 TO 24Q0:NEXT P 

NEXT @ 

CLS 

sOsSuB 2152 

PRINT “DIE ONE2"3x%5" OIE TWO:"37 
SEK 

GOSUB 2154 

RETURN 

PRINT :PRINT “THE SCORE IS:" 

PRINT; “YOU=" 5H 

PRINT, "ME +'%3¢2 

IF C2*H=9 TREN 2008 

GCSLB 2168- 

IF H>CZ THEM,PRINT:PRINT “YOU ARE I 


N THE LEAD" 


1398 


IF C2>H TREN PRINT-PRINT “ANDO I AM 


IN THE LEAD" 


2980 
2818 
28268 
2834 


BOSUB 2154 

CLS 

IF C2Z+H=9 THEN 2846 
GOTO 2444 


C.2,0.2—e 
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2646 CLS 

2858 FOR TT=] TO 3 

2068 PLAY “T259U3802FGOSAFGOZAFG" 

2078 FOR OO=1 TO S@:NEXT OD 

2880 NEXT TT 

20398 PRINT "WELL; THAT’?S THE END OF THE 
GAME" 

2186 PRINT:FRINT:PRINT 

211@ PRINT “YOUR FINAL SCORE WAS:"5H 
2128 PRINT "MY FINAL SCORE WAS +" 5C2 
2130 IF H<C2 THEN [RINT :PRINT TABL6) "I? 
M THE WINNER? 822" :GOSUB 2178:CLS:G0TO 18 
+E) 

2148 PRINT TAB(6) “YOU’RE THE WINNERS? 9" 
*GOSUB 2)7@:CLS:G0TO 148 

2158 FOR OD-1 TO 1@6@:NEXT O0?RETURN 
2160 PRINT & --2-~s8——- mn eon 
-—~" PRINT RETURN 

2178 FOR TT=1 TO 16 

2188 PLAT “T188U3803AF COCOCDAFO4 AFGAFGAL 
5 

2198 FOR OO-1 TO 186@7TT:NEXT OO 

2208 NEXT TT 

2218 RETURN 

2228 CLS RNOCBI 

2238 FOR GG=2 10 516 STEP 5S 

2240 PRINT@ GG; "#"3 

2258 PLAY “T20@U3G803ACEB" 

2268 FOR OO-1 JO JG-NEXT OD 

2276 NEXT BG 

2286 CLS 

22398 PRINT@® 192, TABCL14) "SHARK" 

2908 FOR DD=1 710 15@6:NEXT OD 


2314 
2324 
7336 
23448 
2354 
2364 
2376 
2388 
23394 


2404 
2416 
2470 
2436 
2446 
pe 

2456 
Re 

241668 
24768 
2488 
HE 
2494 
“2166 
2514 
2374 
2534 
2544 
2558 
2558 
E TO 
2574 
2586 
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RETURN 
REM SEVEN TIMES SEVEN 
GOSUB 3194 
cls 
f=34 -GG=1 
GOSUB 2856 
GG=GGr1 
GOSUB 2894 
PRINT “OKs HUMAN IT?S TIME TO PLACE 


PRINTF “YOUR BET..... u 

SOUND 200, ! 

GUSUB 2834 

SOUND 24654 

PRINT?RREINT “ENTER 7A? TO BET UNDER 


FRINT " *B° TO BET ON SEVEN; 9 


PRINT " 4c? TO BET OVER 7" 
Fre= [WKE YS 

lt fC "A" ANO M#4>"B" AND AS4>"C™ 
2476 

SOUND 56,2 

PRINT?PRINS “THE ODDS ARE:" 


PRINT “  A-PAYS EVEN MONEY" 
PRINT * B-PAYS FOUR TO ONE" 

PRINT “  C-PAYS EVEN MONEY" 

GUSUB 2830 

SOUND 280, 1 

PRINT :FRENT “HOW MUCH WOULD YOU LIK 
BET"3: INP A 

SOUND 5,2 


GOSUB 2896 


188 
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2594 IF A>M THEN PRINT "YOU HAVEN’ T GOT 
THAT MUCH" :GOTO 2568 

2688 B=RND(5> 

2616 SOUND 175,3 

PRINT “Ole ONE CAME UP"3B 


7628 
2630 
2648 
2650 
2660 
2678 
2688 
2698 
2700 
2718 
2728 
2738 
2748 
2758 
27608 
2778 
$Y Su 
2780 


2830 
2846 
2858 
2860 
2878 


GOSUB 


2894 


C=RND(6) 


SOUND 
PRINT 
D=B+c 
GOSUB 
SOUND 
PRINT 
W=-A 


17533 
"OTE TWO CAME UP" 5c 


2898 
2532 
“SO THE TOTAL IS" 30 


IF G=7 AND AS="B" THEN W=44A 
IF G<? AND AS="A" THEN W=A 
IF >? @ND AS="L" THEN W-A 


M=M+W 
GOSUB 


2830 


lt W>@ THEN PRINT "“YOU?UE JUST WON 


IF W<@ THEN PRINT "AND SO TOU LOSt 
"3 CWA-1) 
27960 GOSUB 2890 

286@ GOSUB 2860 

2818 GOSUB 2898 

2826 IF M1 THEN PRINT “YOU ARE FLAT BRO 
KE" sGOTG 2928 


CLS 


IF GG>7 THEN GG=7:60TO 3030 
GOTO 2368 


PRINT 
PRINT 


“YOU NOW HAVE $" 54 
"THIS 13 TURN" 3GG 


2884 
2890 
2900 
2914 
2920 
2938 
2940 
2950 
2960 
29708 
BANKR 
2984 
23990 
388 
3010 
30268 
30308 
3046 
3454 
3868 
3878 
Ws8h 
3@30 
$ 36" 
3180 
3114 
71 

3124 
3134 


3140 
3150 
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RETURN 

FOR O0=1 TO 1@@@:NExT ON 

PRINT sPRINT 

RE TURN 

FOR HH#1 TO 5:CLs @ 

FOR TT=1 TO 4S 

PLAY *T25@U3G0!NNGBCEOZAF GO1AFGAFG" 
FOR OO=1 TO 2@:NEXT ON 

NEXT TT 

PRINT@ 132, TABC3] "## BANKRUPT a4 
UPT ##” 

FOR DD=1 TO 25@:NExT OD 

NEXT HH 

FOR OD=1 TO )4@@:NEXT OD 

cLs , 

GOTO 10ag 

FOR SS=} Tu 8 

cLs ss 

SOUND SS*2+14,7 

NEXT SS 

PRINT@ 396; TAS(8) “THE GAME IS QUER 


FOR Ob=. TO SA@@:NEXxT OO 
PRINT@ 164, TAB{6] “YOU BEGAN WITH 


FOR OO=1 TG SO@:NExXT OD 
PRINT@ 224, TOB(8] "YOU NOW HAVE $” 


FOR T1=1 TN 5 
PLAY "T25GU3G02ANGADGO i FGF GOZAOGANG 


FOR OO=! TO 25:NEXT OOD 
NEXT TT 


190 


3168 
3170 
3180 
3130 
3200 
2=NEXT SS 


cus 
GOTO 100 
CLS 7? 
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FoR DO=1 TO Sa@a@:NEXT OO 


FOR SS=1@ TC 244 STEP 14:SQUND 55,1 


3214 FUR SS=19@ TO 24 STEP ~1@:SOUIND SS, 


1:NEXT SS 
3220 FOR OD=1 TG 
3734 FOR TT=1 JN 
3744 PRINT@ 192; 
tert tee" 
3256 FOR OL=1 TO 
32450 PRINT® 1:52; 
SEVEN +++" 


14@;NEXT O0 


3 
TAB(4) * 


Ptte otttet ttttt 


14@:NEXT OD 


TABL4) ° 


't++ SEVEN TIMES 


3778 PLAY “T2500\:3a0 3AGFEAGNE" 


3284 FOR OD-1 
3298 NEXT TT 
3304 FOR 00=1 
3314 RETURN 





TO 10@:NLXT 


aja) 





TO SA@@:NEXT OD 


Malibu 


The computer challenges you to roll the dice and try your 
hand at Malibu. You and the computer take it in turns to roll 
three dice each. Various combinations, and the total of the 
three dice, are worth a different number of points. For ex- 
ample, if the total of the pips showing is thirteen (‘Lucky 
Joe’) on the computer’s dice, the computer gets six points, 
and the human loses six points. 

You start the game with fifty points each and there are five 
rounds to the game. As I said, there are certain winning 
combinations (such as three sixes, called ‘High Roller’) and 
certain winning totals (such as nine or twelve, a ‘Straight 
Road’), You can score more than once from a single roll, so if 
your total of nine was gained by rolling two fours and a one, 
you'd get the ‘Straight Road’ score of three points and the 
‘Two ofa Kind’ score of three points for the two fours. 

The only exception to this is rolling three of a kind (‘Triple 
Crown’), You can score most of the other possible com- 
binations, although you cannot get ‘Two of a Kind’ and 
‘Triple Crown’ for the same roll. 

Now, this may all seem very confusing. It is much easier to 
play than it is to read about, because the computer rolls the 
dice and also works out the combinations. All you need to 
worry about is being beaten by the electronic whizzkid. 

Here’s a complete list of the winning throws (and remember 
that when one player gains a certain number of points, they 
are also subtracted from the other player’s score. The total of 
both scores always equals 100). 
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Total 
13 plus a pair... 
6or15........4.. 
Sor1Z...... 
Allthe same .....TripleCrown.......04. 5 
Two the same ...Two of a Kind......... 3 
i Een, Lucky Joe....cccae 6 
Di iscecesssvetasevs Low and Mean........7 
18. .oeciedeeee as High Roller........... 12 


The only losing throw is seven (‘Dreaded Seven’) which 
costs you two points and adds two points to your opponent’s 
score. 

The program itself is quite easy to follow. Lines 248 to 440 
assess the results of the rolls and print out the types of com- 
binations obtained. The actual dice-rolling routine is in lines 
888 to 990. 

Lines 51@ to 536 check to see if the game has ended and 
keep it going if both players are still in the game. Lines 540 to 
630 call up the end routines depending on who has won the 
game. 

All this is controlled by the main program which is con- 
tained in lines 4 to 230. 


18 REM MALIBU 

24 GOSUB 1234 

34 GOSUB 738 ; 

44 REM MAIN PROGRAM ROUTINE 

94 FOR T=1 10 5 

6@ CLS 

7@ PRINT:PRINT:PRINT "THES IS ROUND" 5T 
8@ SOUND 25,3 

98 IF CSxkHS<?@ THEN PRINT AS$"i"5HS3" C 
OMPUTER:"5CS 


Matibu 
144 GOSUB 674 
114 PRINT:PRINT “FIRST I WILL ROLL THREE 
DICE FOR"; 
124 PRINT "MYSELF....STAND BY..." 
134 PRINT 
144 GOSUB 874 
15@ FOR 2=1 TO 3:CCZ)=B:H(ZI=BINEXT 2 
16@ GOSUB 868A 
17@ PRINT?:PRINT “NOW IT?S TIME TO ROLL F 
OR YOU" 
184 PRINT 
194 GOSUB 88a 
2a@ CLS 
21@ PRINT:PRINT "I ROLLED";CC1)3C(2);C(3 
) 
228 PRINT?PRINT “YOU ROLLED" 3H01)5HC2Z) 3H 
(3) 
238 PRINT 
248 REM ASSESS RESULT OF ROLLS 
258 HTRHCLItHCZItHC3) 
268 CT=CCLItCCZI+C03) 
274 IF CCC1I=CCZ) OR ClOZI=CC3) OR CllI=C 
(32) AND CT=13 THEN PRINT "THAT*?S SQUGH 
FOR ME?" :CS=CS+)]@ :HS=HS-18 


286A IF CHC1I=HCZ) OR HCZI=HC3) OR HO1I=H 
(32) AND HT=13 THEN PRINT "THAT?’S SOQUGH 

FOR YOU" tHS=HS+14:CS=CS-148 

298 IF HT=15 OR HT=6 THEN HS=HS+4:CS=CS- 
4:PRINT "## EASY RIDER FOR YOU #&" 

348 IF CT=15 OR CT=6 THEN CS=CS+4:HS=HS- 
4:PRINT "&& EASY RIDER FOR ME &&" 

314 IF CT=8 OR CT=12 THEN CS=CS+3:HS=HS- 
3!PRINT ">> I CRACK A STRAIGHT ROAD <<" 
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324 IF HT=9 OR HT=12 THEN HS=HS+3 :CS=CS- 
3:PRINT ">> YOU CRACK A STRAIGHT ROAD << 
uw 

“338 IF €C1J=CC2) AND CC2)=CC3) THEN PRIN 
T “A TRIPLE CROWN FOR ME8" :CS=CS+5:HS=HS 
~5:GOTO 3548 

344 IF CCl)J=CC2) OR Cl2I=CC3) OR CCII=CC 
3) THEN PRINT "$# TWO OF A KIND FOR ME $ 
$"3CS=CS+t3:HS=HS-3 

358 IF HC1J=HC2) AND HO2J=HC3) THEN PRIN 
T “A TRIPLE CROWN FOR YOU8" :HS=HSt5 :CS=C 
$-5:GOTO 378 

368 IF HC1J=HOC2) OR HO2)=HC3) OR HCII=HC 
3) THEN PRINT “#$ TWO OF A KIND FOR YOU 
$$" HS=HSt+3 :CS=CS-3 

378 IF HT=13 THEN PRINT "FOR YOU..,.LUCKT 
“JOES" :HS=HS+6:CS=CS-6 

388 IF CT=13 THEN PRINT “FOR ME...LUCKT 
JOE8" :CS=CS+6 ‘HS=HS-6 

39@ IF HT=3 THEN PRINT "LOW AND MEAN...F 
OR YOUL"kHS=HS+7 :CS=CS-7 

4@@ IF CT=3 THEN PRINT "LOW AND MEAN.. -F 
OR ME2" :CS=CS+7 :HS=HS-7 

41@ IF HT=18 THEN PRINT "HIGH ROLLER FOR 
THE HUMAN...“ tHS=HS+)2 :CS=CS- 12 

428 IF CT=18 THEN PRINT “HIGH ROLLER FOR 
THE MACHINE...“ :CS=CS+12 *HS=HS-12 

438 IF HT=7 THEN PRINT "YOU TRIPPED THE 
DREADED SEVEN" :HS=HS~2 :CS=CS+2 

44@ IF CT=7 THEN PRINT "I TRIPPED THE DR 
EADED SEVEN" :CS=CS-2 *HS=HStZ 

45@ REM PRINT SCORES 

464 PRINT:PRINT 
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47@ IF TS THEN PRINT “?> AFTER ROUND" ;T 
i"THE SCORES ARE:"2PRINT ">> "GAS R'E" GAS 
i" COMPUTER :"3CS 

48@ FOR SS=5@ TO 184 STEP 5:S0UNN SS;1:N 
EXT SS , 

49@ FOR S$=175 TO 55 STEP -S:SOUND SS;1! 
NEXT SS 

988 GOSUB 874 

918 REM CHECK BOTH ARE STILL IN GAME 
924 IF CS<i OR HS<1 THEN T=5 

93@ NEXT T 

544 REM RESULT OF FIVE ROUNDS 

S5@ PRINT:PREINT "WELL; "jAS3",; THAT’S TH 
— END OF* 

S6@ PRINT "OUR LITTLE GAME OF MALIBU... 


57@ PRINT:PRINT ASj}"'S FINAL SCORE IS" jH 
$ 

58@ PRINT “AND MINE FS"3CS 

598 GOSUB 8728 

608 IF CS>HS THEN GOSUB 1888 

61@ IF HS>CS THEN GOSUB 1488 

628 IF HS=CS THEN GOSUB 3168 

638 GOSUB 874:GO0SUB 874 

64@ CLS RND(8)2PRINT@ 192, TABCI) "DO YO 
U WANT ANOTHER GAME CY/N)" 

65@ PRINT 

660 FS=INKEYS 

678 IF FS$O"Y" AND FS<>"N" THEN GOTO 668 
68@ IF FS="N" THEN PRINT@® 256, "OK THANK 
S FOR THE GAME, GOODBYE" :END 

G94 PRINT@ 256, "OK,.......,,STANDBY,,,, 


. 
Roepe raren 


788 GOSUB 87a 


196 


71a 
72a 
7348 
748 
73a 
768 
AME 
778 
EY; 
78a 
738 
8aa 
81a 
82a 
R" 

834 


Gambling Games 


GOSUR 88a 

GOTO 5a 

REM INITIALISE 

CLS 

DIN HC33,C03) 

PRINT@® 192, TABC2Z) "WELCOME TQ THE G 
OF MALIBU" 

PRINT@ 256, TABCZ) "WHAT IS YOUR NAM 


INPUT AS 

FOR DD=] TO 7S@:NEXT DD 

CLS SPRINT 

HS=58 :CS=548 

PRINT@® 192; -A%;", PRESS THE SPACE BA 


PRINT TABCZ) "WHEN YOU ARE READY TO 


PLAT" 


848 
858 
864 
878 
888 
98 
98a 
318 
928 
93a 
948 
954 


« 


964 
978 
98a 


IF INKEY$="" THEN 840 
RETURN 

REM DELAY ROUTINE 

FOR DD=1 TO 15@@:NEXT DD:RETURN 

REM DICE ROLL 

FOR 2=1 TO 3 

PRINT " ROLLING DIE" 32; 

FOR DD=1 TO 75@:NEXT DD 

K=RND(6) 

PRINT "WHICH CAME UP" 3K 

PLAY "T25QU3G03NECO4AFGFAOIGFADEC" 
PRINT " --22-------22--------------- 


IF CC23=@ THEN Cl2)=K ELSE- Hl2Z3=K 
NEXT 2 
GOSUB 878 


Malibu 197 


9392 RETURN 

1888 CLS RND(8) 

1018 FOR TT=1 TO S 

1020 PRINT@ 192; TABC3) “ok 2b 
IK KK 


1038 PLAY “T25Q0U3Q203DEFCGGAN4E AF FGADSDFA 
Fe" 

1042 PRINT@ 192, TABC3) “xx*kkk 1 AN THE 

WINNER xxx” 

1850 FOR DD=1 TO 10:NEXT OD 

1868 NEXT TT 

1878 RETURN 

1083 CLS RNDC8) 

1038 GG=64 

1100 PRINT@ GG; TABC4) "22 YOU ARE THE W 
INNER 22" 

1118 PLAY "“T250U3001GFAFGOZAF AGAD 1 GEDFCA 
1120 FOR DD=1 To 28 

1138 GG=GGt64 

1148 IF GG>416 THEN GG=0:RETURN 

1150 GOTO 11208 

1168 CLS RND(8) 

1178 PLAY "“T2QBLBAAAFFFGGGO3FFGGAAFFOZFG 
EDDDEEECCC” 

1180 PRINT@ 192; TABC?) “#88 IT?S A DRAW 
HHH" 

1130 FOR DO=1 TO S@O:NEXT OD 

1208 TO=TOt+1 

1218 IF TOS THEN TO=-@-RETLIRN 

1228 GOTO 1160 

1230 CLS 4 

1248 FOR GG=192 TO 223 STEP 2 


198 


1254 
1264 
1276 
1286 
123948 
138¢ 
1314 
1324 
13234 
1346 
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PRINT@ GG, ">" 

PLAT *T25@U2602ACACGGFGFCAY 
NEXT GG 

PRINT TABC13) “MALIBU" 

FOR DD=1 TO 1@@:NEXT OD 

FOR GG=255 TO 287 STEP 2 
PRINT@ GG, %>* 

PLAY “T25@U3@02CDEAGFO3ACB" 
NEXT GG 

RETURN 
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Follow the Leader 


Although the listing is not very long, you will find Follow the 
Leader a pretty hard act to follow. 

The program generates a sequence of numbers which you 
must copy. First it will put one number on the screen (such as 
2) which will then vanish after a short time. You must then 
type in the number. After a pause the first number will 
reappear, followed by a second number (such as 27). You then 
enter these two numbers and if you got it right, the computer 
will add a third number to the series. The process continues 
until the computer thinks you have had enough, or until you 
make a mistake. 

If you survive the sequence the words YOU DID IT 
CHAMP!! appear on the screen. Just as you're breathing a 
sigh of relief at having survived the ordeal, the words 
STANDBY FOR A MORE DIFFICULT ONE confront 
you. The game begins again, but this time the length of time 
the numbers stay on the screen is shortened. The computer 
will put you to the test five times, cutting the time you get to 
see the numbers each game. Finally, if you survive the final 
round, you are congratulated on your great effort. 

If, at any stage, you make a mistake, line 230 will tell you 
that you blew it and give you a final score. 

To make the game easier or harder, adjust the value of T in 
line 30. T controls the length of time the numbers are shown 
on the screen. Don't forget to also alter line 300 so that the 
game runs for five turns. You may also alter line 320 so that 
the number subtracted from T after each game is smaller or 
larger. Take care to make the game neither ridiculously easy 
nor totally impossible. 
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14 REM FOLLOW THE LEADER 

24 GOSUB 354 

38 T=8aa 

4@ A=1G88*RND(9999) +RND(9999) 
58 AS=STR#(AD 

64 As="Z2"tRIGHT SAS, 7) 


74 z=) 

a@ IF MIDS(As,2,13=" " THEN 48 
98 IF 2<a8 THEN Z=2+1:GOTO af 
180 8-1 

114 Cts 


128 PRINT :PRINT 

134 IF 8-@ THEN 258 

r4Q@ FOR 2=t TO DB 

15@ PRINT MIDS(As,Z,1)3 

168 NEXT 2 

17@ FOR L=t TO TINEXT L 

1a@ CLS 

198 PLAY "T258U3G03EDCO2ZAFGO3BCDEF " 

288 IF INKET#$<>"" THEN 288 

218 PRINT:PRINT?INPUT BS 

220 IF BS="" THEN 218 

234 IF BS<>LEFTS(A$,Q) THEN PRINT TAB(6) 
"WHOOPS YOU BLEW I7T":PRINT TABC(E) "TOUR 
SCORE WAS" ;37*C11@8-T+18%8) :FOR TT=] TO 
SPLAT “T25@U3G04AFGAFGOIGFAGFA" :NEXT T 
T ‘END 

248 IF 8<a@ THEN O=O8+1:GOTO 114 

258 PRINT+PRINT TABCG) “YOU DID.IT CHAMP 
oeg 

268 FOR TT=t TOS 

278 PLAY "T25QU3G0LAFGOZAF GO3AFGA4AFG " 

288 FOR OD=t TO tS:NEXT DD 

298 NEXT TT 


308 
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IF T=30@ THEN PRINT:PRINTiPRINT TABL 


2) "YOU ARE THE ULTEMATE CHAMPS22" FOR T 


T=1 


TO 1@:PLAY "T25Q6U3604AF GO3CDEO4AFG" : 


NEXT TT ENO 


318 


PRINT :PRINT:PRINT "STANDBY FOR A MOR 


E DIFFICULT ONE" 


320 
330 
348 
358 
3608 
3708 
380 
3908 
408 
4108 
420 
430 
440 
450 
46 
478 
4380 
438 
568 
518 
520 
5308 
5408 


T=T-108 

FOR Z=1 TO 3@0@:NEXT 2 
Gata 46 

Ag="kkk FOLLOW THE LEADER ***% ™ 
L=32 

CLs 4 

PRINT® 160, " " 

FOR I=1 TOL 

IF C(L-1)461 THEN 446 
PRINT® 192, TABCL-I) LEFTSCA$, I) 
GOSUB 490 

NEXT 

FOR I=i TO 31 

PRINT@ 192, MIDSCA$,1,L~1) 
GOSUB 520 

NEXT 

RETURN 

FOR 00-1 TO 25:NEXT OD 
SOUND 160,;1 

RETURN 

FOR 00-1 TO 3@:NEXT OD 
SOUN) 184, 1 

RETURN 


Idaho Squares 


Idaho Squares are very similar to magic squares in that the 
horizontal and vertical! columns of numbers al! add up to the 
same total. The square is made up of a three-by-three grid. 

You simply enter any number which you think may make 
up a part of the grid and then the computer checks to see if 
your number is one or more of the missing numbers in the 
square. If your guess is correct, the relevant zero (or zeros) in 
the grid changes magically into the number you have entered. 
A tally is kept of the number of guesses you have taken and the 
number of correct numbers in the square. 

Here is the fisting for Idaho Squares. You can change the 
nines in lines 240 to 280 to lower or higher numbers to make 
solving the puzzle easier or harder. 

After the listing of the program I have included a few 
sample runs of the game so that you may see what the screen 
display should look like. 


14 REM IDAHO SQUARES 

28 GOSUB 600 

34 GOSUB 24@:REM INITIALISE 

46 J=J+1 

5@ CLS 

628 PRINT:PRENT:PRINT:PRINT TAB(S) 
7a Mea 

84 FOR #=1 TO 9 

94 PRINT BC2Z)5" "5 

146 IF 3*#INTC2/3)=2 THEN PRINT :PRINT -PRI 
NT TABCS) 

118 IF BC2)=ACZ) THEN [t=Mti 
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120 NEXT 2 
138 PRINT 
14@ IF M=95 THEN GOTO 4aa 
154 PRINT:PRINT "THIS IS GUESS NUMBER" ;J 
164 PRINT:PRINT “TOU HAVE" 5%; "CORRECT" 
174 PRINT:PRINT "ENTER YOUR GUESS" ;:INPU 
T X 
1a@ FOR 2=1 T0939 
154 IF BC2)=8 AND ACZI=K THEN BC 2) =x 
20 NEXT 2 
214 GOTO 44 
228 END 
238 REM INITIALISE 
24@ DIM ACS),B09) 
258 A=RNOCS) 
26@ B=RNDCS) 
278 C=RNDO(S) 
2a@ O=RNOCS) 
258 IF A=B OR B=C OR A=C OR A=D OR B=D O 
R C=0 THEN 268 
308 ACl1IJ=AA+TB 
314 AlZI=A-CB tC) 
328 ACZI=AC 
338 Al4)=A-BtC 
344 ACSI=A 
358 AlL6)=ArB-C 
368 ALZIA-C 
378 ALB) =ArB+C 
388 A(S)=A-B 
39@ FOR Q=) TO 93 
4@8 B(OJ=A(Q) 
41@ NEXT @ 
42@ BCAI=B 
438 BCB)=8 
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448 BCCI=0 

458 BCDI=28 

458 J=2 

472 RETURN 

480 FOR OO=1 TO 1880:NEXT OD 

498 CLS RNDC8) 

500 PRINT@ 192, TABC6] “YOUVE SOLVED IT 
ogg* 

518 FOR T=1 Ta 5 

528 PLAY “T25QU3003ADCFGO2ZGF AOSAGFCAG" 
530 FOR OO=!} TO 18:NEXT OD 

340 NEXT T 

550 PRINT@ 256, TABC6) “YOU TOOK" ;J 3"GUE 
SSES" 

56@ FOR SS=58 TO 150 STEP S:SQUND SS, 1:N 
EXT SS 

578 FOR SS=145 TO 55 STEP ~S:SQUND S5,1: 
NEXT SS 

580 FOR 00-1 TO 2200:NEXT OD 

598 RUN 20 

688 CLS RNDCE) 

618 FOR GG=192 TO 222 STEP 2 

620 PRINT@ GG, "#"3 

632 PLAY “T250U3003AF GUZFFAAO3GGAA" 

648 NEXT GG 

650 PRINT@ 192, TABC2) “xkBHx*k IDAHO SO 
UARES 9 x*x##4%" 

662 FOR T=1 TO 5 

678 PLAY "“T1OBV3203GAGA" 

682 FOR OO=I TO 10:NEXT OD 

698 PLAY "TL@BV3B0ZAGAG" 

728 FOR OD=1 TO 20:NExXT OD 

718 NEXT T 

722 RETURN 
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16-7? 2 
3.«O@ M1 
a 21 a 


THIS IS GUESS NUMBER | 
YOU HAVE 5 CORRECT 


ENTER YOUR GUESS 5 


16 7 7) 
3 V7) ll 
2) 21 a) 


THIS IS GUESS NUMBER 2 
YOU HAVE 5 CORRECT 


ENTER YOUR GUESS 3 
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16 +? i) 
3 2) 1) 
a 21 4 


THIS IS GUESS NUMBER 3 
YOU HAVE 5 CORRECT 


ENTER YOUR GUESS -3 


16 -? Q 
3 3) 11 
a 21 a 


THIS IS GUESS NUMBER 4 


YOU HAVE 5 CORRECT 


ENTER YOUR GUESS 12 
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16 -7) «12 
3 @ #11 
@ 21 @ 


THIS IS GUESS NUMBER 5 
YOU HAVE 6 CORRECT 


ENTER YOUR GLESS ? 


16-7? 12 
3 ? 11 
@ 21 ) 


THIS IS GUESS NUMBER 6 


YOU HAVE 7 CORRECT 


ENTER YOUR GUESS 2 
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16 7-7 12 


THIS ES GUESS NUMEER 7 
YOU HAVE @ CORRECT 


ENTER YOUR GUESS ~2 


Pentominos 


This is a two-player game in which the computer is used as an 
electronic game board. 

For the information of the two players, the computer has 
two graphic displays. The first is the screen which shows the 
game board — an eight-by-eight checkerboard with red and 
yellow squares. Also displayed on this screen is the name of 
the player having the current turn and the numbers of the 
used pentominos. Each pentomino can only be used once. 

The second screen displays the eleven pentominos used to 
play the game. A pentomino is a playing piece which is made 
up of five squares. Each pentomino is a different shape. To 
switch between these two screens, press the “B” key to see the 
board and the “P” key to see the display of pentominos. 
Pressing the “X” key at any time will end the game and, after a 
short delay, the program will be RUN again. 

The object of the game is for the two players to take turns 
selecting a pentomino and then placing it on the playing 
board. The strategy is to use up as many spaces on the board 
as possible each time you place a pentomino so that your 
opponent can’t find room to place his pentomino when it is his 
turn. The player who puts the last piece on the board is the 
winner. So the game goes on with first one then the other of 
the two players selecting a pentomino and placing it on the 
board until there is no room to place the next piece. When this 
stage is reachéd, the player who couldn’t move loses the game. 
To escape from the program and start another game, press the 
6X” ky ey. 

To select a pentomino from the display, use the forward 
cursor key unul the indicator arrow is under the pentomino 
you wish to use. Then press the RETURN key. Then, to place 
the pentomino on the board, use the four cursor keys to 
indicate the five squares you want that shape to cover. After 
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you have indicated each square, press the RETURN key to 
enter the square into the computer’s memory. After you have 
chosen all five squares, the computer will then colour the 
shape blue. 

The computer is used only as an electronic board for this 
game, so there is no routine to prevent you from cheating. You 
and your opponent will have to keep each other honest. How- 
ever, the computer will not let you select a pentosnino which 
has already been used. 


18 REM PENTONMINOS 

28 GOSUB 1398 

38 CLS 

4@ DIM BLI6);,XxX(6),PQ0C6),:M=3:N=1:DIN MRE 
5J,NRCS),P0113,0011) 

5@ GOSUB 234:REN ORAW PENTONINOS 

6@ CLS:GOSUB 1228 

74 CLS RNO(8) 

84 PRINT@ 36, “WHAT [S FIRST PLAYER’S NA 
ME“: INPUT AS 

3@ IF LENCAS)>5 THEN ASsLEFTS#(AS; 5) 

148 PRINT@ 132; "WHAT IS SECOND PLAYER?S 
NAMES INPUT Bs 

114 IF LEN(B$)>5 THEN BS=LEFT$(B$; 53 

128 GOSUB 5@4:REM PRINT BOARD 

134 IF RNOC2)=1 THEN C#=As ELSE C$=BS 
144 T=G:PRINT@ 24, CH"? S°sPLAY “T28Gu3a 

O3EDAFG":FOR T=1 TO 758 :NEXT 

158 GOSUB 68@:REM SELECT PENTOMINO 

168 GOSUB 127@:REN USED PENTOMINOAS 

174 IF PU=] THEN PU=@:G0TO 158 

184 GOSUB a64:REM ORAW PENTOMINO 

138 IF C#=As THEN C$=8%:G0T0144 


266 
216 
226 
236 
246 
256 
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IF C$=B$ THEN CS=AS 
GOTO 146 
GOTO 226 
PMODE 4,1 
PCLS :GET(@; G@)-(14; 14); %® 
LINE(@;@)~C14; 14), PSET, BF 


26@ GET(G,6)-C14; 14),6L 

276 PUT(G,GI-C14; 14) XX 

286 FOR I=] TO 55 

236 READ A;B 

306 PUTCA, BJ~CAt14; Bt14); BL 

316 NEXT 

326 DATA 8332; 24; 16; 24332, 24,483 4G; 32 
336 DATA 72, 16,72; 32; 88;32,88548, 164,32 
346 DATA 136,32, 136;48, 152; 46; 168,32, 168 
348 

356 DATA 266,32, 216; 32,216; 48,232, 48, 232 
332 

366 DATA 8,86,8;96, 24;96,46,96, 4G, 112 
376 DATA 72; 86,72,96,72, 112, 88,86, 164,86 
386 DATA 136,8@, 152,86, 152,596,152, 112,16 
8,86 

336 DATA 266,86, 216,80, 216,96,232, 96; 232 
112 

466 DATA 16, 166, 32, 144,32, 160,48, 160,64; 


166,96, 166,112, 166, 128, 166, 144, 166, 1445 1 
44,176, 166, 192, 166, 298, 166, 268, 144,224; 1 


44 
410 
420 
430 
448 
450 


DRAW “BN32,66;NFOND12G6° 
GET(26,66)-(38,78),P0 
PUT (24,64)-C€39,79),%% 
AH26:B=66 

GOSUB 476 


214 

460 
472 
482 
4392 
328 
3128 
322 
332 
348 
358 
3628 
372 
382 
332 
622 


6128 
620 
638 
6428 
652 
6628 
6728 
682 
638 
7228 
718 
728 
7308 
748 
238 
7628 
7728 
722 
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RETURN 

FOR T=t TO S:PLAT "G4T1@BCDAAB" 
NEXT 

RETURN 

CLS:PRINT@ 56; " TURN" 
PRINT@ @8, " USED" 

PRINT@® 120; " PENT-" 

PRINT@® 152; " OMINO?S” 

FOR x=@ TO 18 STEP 6 

FOR Y=@ TO 384 STEP 128 
FOR ]=@ TO 2 

PRINT@ X+I+Y, CHR#l191)3 
PRINTB X+1+32+7, CHR$(292)3 
PRINT@ Xt+I+64+7, CHRE(159)5 
PRINT@ X+1+96+7, CHR#(59) 3 


PRINT @X+1 4347; CHRE(I59); 

PRINT@ XtI+35+7, CHR#(159)3 
PRINT@ X+]+67+7; CHRE(191)3 
PRINT@ X+]+99+7, CHR$(191)3 

NEXT 1, 73% 

SCREEN 1,1 

RETURN 

SCREEN 1,1 

PUTCA; BI-CAtI2;Bt21);P0 

GOSUB 788 

IF FG=! THEN FG=*@:RETURN 

PUT (A+; B-2] -CAtI4; Br1 2); XX; PSET 
ATATE4tl 

IF A=282 THEN B=Bt64 :A=26 
IF B=134 THEN B=]7B :A=32:C= 
IF AtB=458 THEN A=26:B=66°C 
GaTO 638 

ES=]NKEY$:IF E$=""THEN 782 


16 
=2 
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73@ IF ES=CHR$C3) THEN RETURN 

808 IF ES$=CHR$(13) THEN FG=1:RETURN 

814 IF Es="B" THEN GOSUB 848 

a@2@ IF Es="%" THEN RUN 

a3a@ GOTO 78a 

84@ SCREEN @,@:G$=INKEY#:IF Gée="" THEN @ 
48 

@5@ SCREEN 1,1?RETURN 

@6@ PN=POINT(M-1;N) :PRINT@® 24,C8j5°°S" 
878 RESETCM; NJ :FL=8 

€@a@ E*=[NKEYS:IF ES="" THEN 8a 

a9@ IF E¢="P" FHEN GOSUB 12528 

988 IF Es="X" THEN RLIN 

914 IF E*=CHRSC3) THEN [t=[t+6 2x =M-6 ¢NX=N 
tFL=1 

928 IF M=51 THEN M=3:GOTO 1838 

938 IF ES=CHR#(8) THEN M=[t-6 tX=M+6 :NX=N 
tFL=1 

944 IF <3 THEN M=45:GO70 1838 

958 IF ES=CHR#(1B8) THEN N=N*4?NX=N-4 :MX= 
MsFL=] 

968 IF N=33 THEN N=1:GOTO 14838 

978 IF ES=CHR#(94) THEN N=N-4 :NX=N+4 :MX= 
M:FL=1 

984 IF N<] THEN N=29:GOTO 1838 

994 IF PN=i OR PN=3 THEN IF E¢=CHRS(13) 


OR E¢s="P" THEN @6@ ELSE 183a 

1488 IF E*=CHR#C13) THEN GOSUB 1878 
1414 IF T=5 THEN RETURN 

142@ IF FL=@ THEN aag 

1438 SET (MX, NX;PN) 

144@ GOTO a6a 
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1058 SCREEN 1, 1:G8=INKEYS:IFG$="" THEN 1 
B50 

1262 SCREEN Q, 1 ?RETURN 

1878 FOR I=-3 TO 2 

1888 FOR J=-1 TO 2 

130 SETCMt],NtJ;1) 

1188 NEXT J;1 

1112 PN) 

11208 T=Ttl 

1138 MRCTIAM=NRCT J=N 

1140 IF T=5 THEN GOSUB 1158 

1152 RETURN 

11608 FOR K=1 TO 3 

1178 FOR 1l=-3 TO 2 

1180 FOR J=-} TO 2 

1190 SETCMRCKIt],NRCKItJ ; 3) 

1220 NEXT J, 1; 

1210 RETURN 

1220 FOR 1l=1 TO 11 

1230 READ PCI) 

1240 NEXT 

1250 DATA ~7;57; 121,185,-39,25, 89, 153,-5 
7923,103 

1262 RETURN 

12708 FOR J=) TO 11 

1280 IF PCIJ=A-.5*B THEN IF QC 1)=1 THEN 

GOSUB 1338 ELSE Q(])=1 

12390.NEXT 

1300 FOR 1=) TO 11 

1310 IF QC1J=) THEN PRINT@ 152+1%32, “NO 


asgs 
« 34a 


1320 NEXT =RETURN 
1330 PU=1 
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1340 FOR I=1 TO 10 
1350 PLAY “0! TZQQAAAACCCODEDEOCCFFCFCFDE 
" 
1360 IF 2-0 THEN 2=1:SCREEN 1,0:GOTO 138 
g 
1370 IF Z=1 THEN 2=O:SCREEN 1,1 
1380 NEXT :RETURN 
1398 FOR GG=) TO 3:FOR FFA} TO 2 
14900 IF FF=1 THEN CLS 3 ELSE CLS 4 
1410 PRINT@ 160, " ook Goo GK Kx 
KK KKKKX " 
1920 PRINT@ 224, TAB(S) “H#RHH PENTOMINO 
S ###Hn" 
1430 PRINT@ 288, " XXKKK KKKKK KKKKK KKK 
KK KKKKX " 
1440 PLAY “T25QU3001F GAOZCDEOSDEFO4F DCO3 
DCOZAGFO1AFGA” 
1450 FOR DO=1 TO 10:NEXT OD 
1460 NEXT :NEXT 
1470 RETURN 


Ceo .Deg 


Wizard of Wall Street 


Your computer will now give you the opportunity to try your 
skill and judgement on the stock exchange. The computer will 
set up a register of four companies and display a balance sheet 
on the screen. The balance sheet will show the number of the 
company, the number of shares you hold in thatcompany, the 
current price of the shares, the price you paid for the shares 
and the net profit or loss so far. 

The headings for these columns are put on the screen by 
lines 140 and 150, so be sure to type these two lines exactly as 
they appear in the listing. The spaces between the words are 
important. 

Underneath the balance sheet, the computer will display the 
amount of money you have in the bank and the bank interest 
for that turn. The bank interest will fluctuate throughout the 
game. 

The computer will then give you the opportunity to buy 
shares in one of the companies. You will be asked which 
company you wish to invest in and, after you have answered 
this question, how many shares you wish to purchase. If you 
wish to sell shares, enter a negative number. 

The shares you have nominated will be purchased by the 
computer, or sold if required. It will then go on to work out 
the fluctuations in the share market. A new balance sheet will 
then be printed showing the updated figures plus your current 
bank balance. You are now well on your way to making your 
first million. 

If you attempt to purchase shares you can’t pay for, the 
computer will declare you bankrupt and send you out of the 
game in disgrace. This condition is tested in line 290. 

If you try to sell shares you do not own, the computer will 
accuse you of fraud and terminate the game. Line 310 is the 
line which keeps you honest. 
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Justas in real life, every now and then the stock market will 
collapse, wiping out your fortune. The coilapse is worked out 
by line 386. 

The companies and ail the reievant information are kept in 
an array which is set up in jine 8@. A(1,A) holds the current 
price of the shares, A(2,A) records the shares that you own 
and A(3,A) haids the price you paid for the shares. The 
variabie Z is the profit or loss figure (Z is calculated in line 
178). 

Line 10@ sets the starting price of the shares, and they are 
altered each turn by line 330. 

Lines 350 and 36@ calculate the bank interest and add it to 
your bank balance. 


1@ REM STOCK EXCHANGE 

2a CLS 

3@ GOSUB a7a 

4a CLS4 

Sa x=4 

6a 1-10 

7@ B=188a 

aa DIN AC3,4) 

99 FOR As) TO x 

180 ACI, AI=A+RND(19) 

118 AC3,A)=a 

128 NEXT A 

138 CLS 

148 PRINT "CO, YOU PRICE START PROF 
IT" 

15@ PRINT "NO. HOLD NOW PRICE LO 
ss" 

16a FOR A=l TO xX 

178 2=AL1,A)-AC33 A) 


220 
18a 
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PRINT A;TABCX+1) ACZ,A) ;TABCLI) ACI, 


AISTABCIA) ALB,AISTABC25) 2 


198 
288 
2148 


NEXT A 
PRINT 
PRINT “BANK $";B+PRINT "INTEREST RAT 


E (S"sf3"2" 


220 
230 
240 
250 
260 
2a 
280 
290 
300 
310 
320 
330 


PRINT 

INPUT "WHICH COMPANTC 1-43" GA 
PRINT 

PRINT "HOW MANY SHARES" 

INPUT "CA NEGATIVE MEANS SELLI"5C 
IF C>@ THEN AC3,AI=ACIIAD 
BsB-CxACT, AD 

IF B<=@ THEN GOTO 498 

AZ, AI=ALZ; AI+C 

IF AC2,;A)<@ THEN GOTO 6548 

FOR A=l TO X 

ACL, AISINT CABS (ACL, AIFAXKSAXCRNDC18)- 


RND(18))7181) 


348 
354 
364 
3748 
38a 
398 
400 
418 
428 
438 
440 
458 
460 


NEXT A 

J=RND(18)+5 

B=INTCABS(B+8xX 1/188) ) 

IF 89999999 THEN GOTO 768 
Y=RND(5@) :1F Y<>1 THEN GOTO 138 

REN COLLAPSE 

FOR DO=t TO 1G@@@:NEXT DD 

CLsa 

FOR T=1 TO 5 

PLAY "T1@@U3@016666 GAAAAE EE DADFF FFF" 
FOR DO#1 TO S@:NEXT OD 

NEXT T 

PRINT@ 192, TAB(4) "THE MARKET HAS C 


OLLAPSED" 


478 
4aa 
498 
$a 
5148 
S28 
5348 
544 
55a 
S64 
5748 
saa 
S38 
6aa 


618 
624 
634 
648 
65a 
664 
674 
6aa 


Wizard of Wail Street 221 
PLAY "TS@01U3GADFF GEAADEFF GGGGG" 
GOTO 4aa 
REM BANKRUPT 
FOR DD=1 TO 1@@@:NEXT DD 
CLS4 
FOR SS=i1 TO 288 STEP 18 
SOUND SS; 1 
NEXT SS 
FOR SS=288 TO 1 STEP -18 
SOUND SS;1 
NEXT SS 
FOR Tf=1 TOS 
CLS4 
FOR DD=1 TO 1@@:NEXT OD 
PRINT@ 192, TABCA "YOU ARE BANKRUPT 


FOR DD=1 TO 184: NEXT DD 

NEXT TT 

GOTO 648 

REM FRAUD 

FOR DD=) TO 1@@@:NEXxT OD 

CLSa 

PLAY "T1S5801U03@8GGGGGAARAAAFF FFF GGGGO2 


AAAF FF GGGGGAAARA " 


694 
7aGa 
718 
728 
738 
748 
758 
768 
778 


6-96 
FOR LL=t TO 9 

PRINT@ G, TABLIZ) “FRAUD” 
FoR op= TO 25@:NEXT OD 
G=6+32 

NEXT LL 

goto 758 

REM MILLIONAIRE 

FOR DD=1 TO 19@0:NEXT oD 
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288 CLS 3 

734 G=36 

80@ FOR LL=1 To 3 

81a PRINT@ G, TABCS) “you have made a mi 
tlion” 

824 PLAY “T2@GU3G03AARAAAGGGGGFF FF FODDDDA 
AAAAAAAAAA” 

83a FOR DD=1 TO 25@:NEXT OD 

844 G=G+32 

85a NEXT LL 

86a GOTO 86a 

874 CLS? 

88@ FOR C=1 TO 3 

890 PRINT@ 192, TAB(S) “$$$ STOCK EXCHAN 
GE $$$" 

S3a@ FOR T=l1 TO 3 

31a PLAY “T2@GO03AARAFFFGGGAAAAA" 

$24 FOR OD=1 TO S@:NEXT OD 

93a NEXT T 

344 PRINT@L392;, TABCS) "“S$$$$$S$S$F$SSSSSSSSS 
S$$$SS" 

95a PLAY “T2aa02GGGFFFODDAAAA" 

364 FOR DD=] TO I@@:NEXT OD 

37@ NEXT C 

384 RETURN 
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co, YOU PRICE START PROFIT 


NG. HOLO NOW PRICE “LOSS 
i gs: 45 78-65 

2 86 lee a2 ga 

2 Va] 183 33 154 

4 a 34 34 6a 


BANK % 2@687 
INTEREST RATE IS 1) 


WHICH COMPANT(C1~4]7 1 


HOW MANY SHARES 
CA NEGATIVE MEANS SELL) 1aaa 


co, YOU PRICE START PROFIT 


NO. HOLD NOW PRICE “LOSS 
1 1433 ? 13 -6 
2 8 202 32 174 
3 Va) 153 33 124 
4 8 114 34 84 
BANK # 8532 - 


INTEREST RATE IS 11 # 


WHICH COMPANY(C1-4) 4 


HOW MANY SHARES 
CA NEGATIVE MEANS SELL] 5S 
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co, YOU PRICE START PROFIT 


NG. HOLG NOW PRICE /LOSS 
1 1833 1? 13 4 

2 Q 132 32 162 

3 2) 33 33 62 

4 3 1394 114 80 
BANK $ 8678 


JNTEREST RATE IS 3% 
WHICH COMPANY(C 1-4) 1 
HOW MANY SHARES 


CA NEGATIVE MEANS SELL) 2028 


co, YOU PRICE START PROFIT 
NO, HOLO NOW PRICE sLOss 


1 1233 2 1? -15 

2 Q 172 32 1428 

3 Q 153 33 128 

4 5 134 114 28 
BANK $ 6063 


INTEREST: RATE IS 15 % 
WHICH COMPANYC 1-4) 1 


HOW MANY SHARES 
(A NEGATIVE MEANS SELL) 2000 
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co, YOU PRICE START PROFIT 
NO. HOO NOW PRICE LOSs 


1 3233 33 Ling 31 
2 Q 152 32 138 
3 Q i53 33 120 
4 5 34 114 (+28 
BANK $ 2296 


INTEREST RATE IS 11 # 

WHICH COMPANT{ 1-4] 

HOW MANY SHARES 

CA NEGATIVE MEANS SELL )-1500 


co, YOU PRICE START PROFIT 
NO. HOLO NOW PRICE /LOss 


1 1733 48 2 46 
2 i) 132 32 192 
3 i) 1398 33 165 
4 5 54 114 -68 


BANK $ 56457 
INTEREST RATE 18 9 24 


WHICH ConPANY! 1-4) 


Concentration 


Concentration is a traditional card game which will entertain 
children of all ages. It is a game which, as its name suggests, 
involves a great deal of concentration and tests a player’s 
ability to remember accurately what he or she has seen. 

The game involves placing a full deck of playing cards face 
down on a table or any other suitable surface. The cards are 
usually placed in four rows of thirteen. Each player then takes 
turns at turning over two cards. If the cards make up a pair, 
for instance two aces, then the player picks up these two cards 
and chooses two more until he fails to pick a pair. If the cards 
aren’t a pair, they are turned face down again and it is then the 
next player’s turn to pick two cards, 

The strategy of the game is to remember the positions of as 
many cards as possible to enable you to pick a maximum 
number of pairs at each turn. 

In this computer version your computer will, at the start of 
the game, shuffle a deck of electronic cards and lay them out 
neatly on the screen in four rows of thirteen cards. The backs 
of the cards are coloured alternately red and yellow to aid you 
in distinguishing their position. 

The human player has the first turn. The screen will show a 
cursor or pointer, a green square, in the upper left-hand 
corner of the first card. This cursor is used to indicate which 
card you wish to turn over. You can advance this cursor along 
the rows of cards by pressing the right arrow key. Each time 
you press this key the cursor will move one card to the right. 
When the cursor reaches the end of the row it will drop down 
to the next row. When it reaches the last card in the deck it 
will return to the first card on the screen. So if you happen to 
go past the card you wish to select, never fear, just keep going 
and you will get back to it eventually, When you have reached 
the card you wish to turn over, press the “T” key, The 
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computer will then show you which card you have selected. 
This card will remain on the screen until after the next card 
has been picked. If the two cards are a pair, both cards will be 
removed from the screen, your score will be incremented and 
you will be given another turn. 

If the two cards are not a pair, they will remain on the 
screen for a few seconds to give you a chance to memorize 
their positions and then they will be turned back over to show 
the backs of the cards again. It is then the computer’s turn to 
select two cards. This game cycle continues until all the cards 
have been paired up. The player with the highest number of 
paired cards to his credit wins the game. 

As we have said, the game of Concentration involves the 
ability to remember what you have seen. This created a prob- 
lem in the early programming stages because, of course, a 
computer never forgets. An infallible computer makes a very 
frustrating opponent. To make the game interesting and a 
challenge to play, we had to provide a method for the com- 
puter to ‘forget’ where cards were placed on some occasions. 
This was done by giving the player a choice of five levels of 
difficulty. Level one is the easiest, whereas level five is very 
difficult indeed. At the beginning of the game you are asked to 
choose which level you wish to play. The INPUT from this 
question in line 1960, HF, is used in a computation in line 340 
which gives the computer a built-in fallibility factor. The 
lower the level of difficulty, the more likely the computer is to 
‘forget’ where a certain card is located. You will find that at 
level five the computer has an excellent, but not perfect 
memory. The program provides quite a good challenge and I 
think you will find that it requires a great deal of practice 
before you are able to beat the computer on level five. 

The program makes extensive use of subroutines. This 
aided development of the program and makes for efficient 
running while the game is being played. 

After the title sequence at the beginning of the program, the 
GOSUB 2060 in line 20, we RETURN to line 30 which 
DI Mensionst wo arrays. The A array contains the values of the 
cards in a random order and is used to place the cards in the 
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four rows on the screen. Line 46 sends the program to the 
eS beginning at line 1836 and running down to line 
990. 

This routine first prints the stand-by message on the screen 
at line 1848 and then uses the ioop in lines 1856 to 189 to read 
four sets of the numbers from one to thirteen into randomly 
picked positions in the array. The position is picked in line 
1868 and is checked in line 1876 to see if it already contains a 
‘card’, If it does, the program goes to line 2600 where this 
routine puts the card into the next available blank jocation in 
the array. 

When ail the array positions have been filled, lines 1916 to 
1946 piay a little fanfare and then line 1956 asks you which 
level of difficuity you wish to use. Your INPUT is accepted by 
line 1960 and then the programis RETURNed to line 50. 

We then go to the subroutine in lines 1670 to 1826. This 
routine uses a series of ioops and SET statements to print the 
backs of the cards on the screen. 

Back in the main part of the program again, the loop in iines 
68 to 90 sets up the B array. These lines set each iocation inthe 
B array to minus one. This array is used by the computer to 
‘remember’ the locations of the cards that have been picked by 
either the human piayer or the computer. When a card is 
‘turned over’ by either player the value of the card is put into 
the iocation in the B array which corresponds with the card’s 
position in the A array. After the computer has selected a card 
it then searches through the B array for the iocation of a 
matching card. If it finds one, the value of that jocation in the 
B array is set to zero to show that it is now empty. If the 
computer doesn’t find a matching card in the B array, it will 
choose its second card at random. 

So the A array contains values of either zero or the value of a 
card, and the B array can contain values of minus one for cards 
which have yet to be turned over, the value of a card which has 
been turned over, or the value of zero which indicates that a 
card has been matched with its pair. 

Line 166 prints the current scores. Variable MT is the 
computer’s score. This is incremented in line $76, and the 
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human’s score, YT, is incremented in line 540. The final 
scores are printed out by lines 710 and 720. 

Line 11 sends the program to the subroutine in lines 
1068 to 1300. These lines allow the human player to select the 
cards and turn them over. Line 1060 uses a row of black 
spaces to make sure the necessary section of the screen is clear 
for the message printed by lines 1070 and 1080. 

The GOSUB 630 in line 1090 goes to the routine which 
checks to see if there are any cards left to be selected. This 
routine scans through the B array and if all the locations are set 
to zero it drops out of the routine 1060 to 1300 and goes to the 
end routine. 

Variables L and M are the coordinates of the cards on the 
screen. P is used to check if a screen position is green. This 
means that the card has either been turned over or has been 
removed from the screen. If P=1 then the screen location is 
green. The computer will jump the cursor over this location 
and move on to the next card. The cursor is moved from card 
to card each time CHR{9) is pressed. This is the forward 
arrow key. When “T” is pressed, the card indi- 
cated by the cursor is turned over. LL and 
MM remember the coordinates of the card, and then the 
program drops out of the loop and returns to fine 120. 

Variable Q is used to check if the player has made one or 
two card selections. The GOSUB 1590 in line 130 is for the 
routine that ‘turns’ the cards over and prints the face value of 
the card on the screen. Variables B and C are used to re- 
member the colour of the back of the card so it can be 
reprinted correctly by another routine. The rest of the routine 
prints the face value of the card in its correct position. Line 
1560 checks to see if the card is an ace, ten, Jack, Queen or 
King. If so, the program drops down to lines 1600 to 1660 
where the correct symbol is printed. (ACE=AA, TEN=10, 
JACK=JJ, QUEEN=QQ, KING=KK.} 

Back in line 140 the B array element is made equal to the 
position in the A array that has just been selected. Lines 150 
and 160 test the value of Q to see if the player has had one or 
twochoices. If only one card has been selected, we go back to 
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line 100 for another choice. If two cards have been selected, 
the program jumps down to line 299. 

In line 170 variables N and O are used to remember the first 
card, and line 180 directs the program back to line 100. 

We need to know if the human player has picked a pair, so 
this is done in line 190. If a pair has been selected, the 
subroutine in lines 51 to 560 is called up. Line 510 uses blank 
spaces to clear the section of the screen used by line 52 to tell 
you that a pair has been picked. Line 530 provides a short 
delay to give you a chance to see what is going on. Your score 
is incremented by line 540, and line 550 calls up the sub- 
routine 1310 to 1380. 

This routine removes the pair of cards from the screen and 
sets the A and B arrays’ locations to zero so that these cards 
can’t be picked again. Line 56@ then returns the program to 
line 100 so that the human player can pick another nwo cards. 

If a pair wasn’t picked, line 200 blanks out the previous 
printed message. Line 210 tells you that you have failed to 
pick a pair, then line 220 provides a short delay so that you 
have a chance to memorize the positions of the cards. 

Line 230 GOSUBs to lines 1390 to 1490. This routine is 
used to turn the cards over again to show the backs. Variables 
B and € are checked to see what colours the cards were. A 
series of PRINT@ statements using CHR§$ are used 
to print the backs of the cards back on to the screen in the 
correct places. 

Line 240 once again calls up subroutine 630 where a check 
is made to see if the game is over. 

Line 250 sends the program to the subroutine in lines 870 to 
1050. This routine is used by the computer to select its first 
card, Line 870 prints the computer's message, and line 880 
clears out the previous message in the next line. 

The loop from line 900 to line 1010 is the loop which selects 
the card. Variables L and M are randomly set to values be~ 
tween 6 and 54, and 6 and 18 respectively. By doing this we 
choose a position in the A array which becomes the computer’s 
first card. Line 970 checks to see if this card has already been 
turned over. If ithas, the program goes to the next position in 
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the array. Line 98@ checks to see if the card has been removed 
from the screen; if it has, the program moves on to the next 
available position in the array. 

In line 1020, if Z2=2, a card has been selected; we then go 
down to 1050. If Z=1, then a card hasn’t been found between 
the position selected by L and M and the end of the array. If 
this occurs then line 1040 sends the program back to line 
900where the loop is started off again. 

GOSUB 639 is called up once again by line 1030. We cal! 
this routine up frequently to keep checking that there are still 
cards in the array to be picked. 

When a card has been selected, LL and MM in line 
1050 remember the coordinates of the card and we go back to 
line 260. Variable Q is used once again to see if one or two 
cards have been picked. The GOSUB 1590 in line 270 prints 
the selection on the screen. 

In line 310 the values of the cards are put into the B array. 
The N and O variables in line 330 remember the coordinates 
of the first selection. 

If onty-one card has been picked, we use line 340 to see 
whether the computer will remember that it has seen a 
matching card. This line gives the computer a degree of 
probability and selects a random number. If the number is 
outside the range of probability then line 350 sends the 
program back to line 250 so that the second card may be 
picked at random. 

If the random number is within the probability range then 
the computer is given the chance to see if it can remember the 
position of a matching card. Lines 410 to 470 scan the B array 
for a card which matches the first one the computer has 
picked. If one is found, line 450 checks to see that it isn’t the 
card the computer has already picked. When a pair is found, 
II and JJ in line 460 remember the pair. 

Line 480 checks to see if IW=@; if so, a pair hasn’t 
been found in the B array. In this case we go back to 
line 25@ so that the second card can be picked at random. 

If a pair has been found, line 599 prints the message on the 
screen. Line 600 sends us to the routine which removes them 


232 Brain Games 


from the screen. The program then goes back to line 250 so 
that the computer can select another two cards. 

If the computer doesn’t select a pair, the cards are turned 
back over and the program goes back to line 100 so that the 
human player can have his next turn. 

At the first reading you may find that this explanation of the 
program is a bit confusing. Rather than run through the 
program line by line, we have gone through it in the sequence 
the computer uses when it is playing the game. So we suggest 
that you play the game a few more times until you are familiar 
with the order of play and then read through the explanation 
again, following. through the listing of the program as you do 
so. This should give you an excellent idea of how the program 
works. Here is the program sequence in step form: 


The program first sets up two arrays. 

The cards are sorted into the A array. 

The backs of the cards are printed on the screen. 

The elements of the B array are set t0 minus one. 

The player selects a card. 

The card is printed on the screen. 

The value of the card is placed in the B array. 

Asecond card is selected and printed on the screen. 

The value of the card is placed in the B array. 

If a pair has been picked, they are removed from the screen. 
If they are a pair, the player gets another turn. 

If a pair wasn’t picked, the backs of the cards are reprinted. 
The computer selects a card at random. 

Itchecks to see if it will remember another card. 

If it does remember, a search is made of the B array for a 
matching card. 

If it doesn’t remember, or can’t find a matching card, a 
second card is picked at random. 

The cards are printed on the screen and placed in the B 
array. 

The cards are either cleared from the screen or the backs are 
reprinted, depending on whether or not a pair was 
picked. 

This game sequence continues until all the cards have been 
paired off. 


18 
28 
34 
48 
5a 
6a 
7a 
aa 
38 
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REM CONCENTRATION 

GOSUB 2268 

DIM AC13;4)*DIM BC13; 4) 
GOSUB 1838 

GOSUB 1678 

FOR x=] TO 13 

FOR Y=] TO 4 

BCX; Y)=-1 

NE XT = NE XT 


184 PRINT@416,"SCORE: COMPUTER" SMT;" 4 
UNAN' 5YT 

114 GOSUB 1868 

128 IFQ=2 THEN O-@ 

134 GOSUB 1588 

144 BCX, TI=ACK, 1) 

158 Q=Q+1 

168 IF Q>1 THEN 138 

178 N#=x :0-¥ 


188 
198 


GOTO 188 
IF ACK; YI=ACN,O) THEN 518 


2G PRINT@G, " 


218 PRINTAL A, "NOT A PAIR" 

22@ FOR OD =1 TO 7@GA:NEXT 

236 GOSUB 1398 

24@ GOSUB 638 

258 GOSUB 8728 REM COMPUTER SELECTS 
268 IF O=2 THEN O=-@ 

27@ GOSUB 1584 REM PRINT SELECTION 


2aa 


FOR I=1 TO 1@@@:NEXT 


298 E=a 
388 O=0+! 
314 BCX; TIHACK,Y) 


B.B0D.I5, 


234 

326 
330 
3408 
352 
3608 
370 


380 
396 
408 
416 
420 


440 
450 
460 
478 
48a 
4308 
580 
516 


520 
538 
548 
558 
560 
578 
583 


590 
690 
610 
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IF Q>1 THEN 360 
N=xX :0=¥ 
IF RNO( 100) <S@+1GXHF THEN GOTO 410 
60T@ 25¢ 
IF ACX,;YJ=ACN; O} THEN 576 
PRINT@Q; " 
PRINT@1@;"I GOOFED" 
FOR. I=1 TO 60@:NEXT 
GOSUB 1398:G0TO 100 
Il=@:JJ=@ 
FOR I=) TO 13 
FOR J=1 TO 4 
IF BCI, JJ QACK,Y) THEN 470 
IF I=X AND J=T THEN 470 
II=I sJJ=J 
NEM T eNEXT 
IF IIl=@ THEN 250 
x=] s¥=JJ2E=10 
GOTO 27a 
PRINT@Q, " 
" 


PRINT@12; "A PAIR" 

FOR DD=1 TO ?@@:NEXT 
YT=YT+) 

GOSUB 1316 

GOTO 18a 

MT=MT +1 

PRINT@Q," 

PRINT@B; "I PICKED A PAIR" 
GOSUB 13106 

FOR }=1 TO 6@@:NEXT 


. 


620 
630 
646 
650 
566 
578 
5a@ 
698 
708 
718 
720 
738 
IN" 
748 
730 
768 
773 
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GOTO 250 
B= 
FOR X=1 TO 13:FOR Y=l TO 4 


IF BCX, YI<?@ THEN B=l 

NEXT tNEXT 

IF B=@ THEN 696 

RETURN 

GOSUB 2460 

CLS RNDCA) 

PRINT@128,TABCZI"NY SCORE IS" jMT 
PRINT TABC7}"YOUR SCORE IS" jYT 

PRINT TABC3]"00 YOU WISH TO PLAT AGA 


PRINT TABCIGI"CYES“NOI"; 

INPUT Q& 

IF Q#="YES" THEN 40 

PRINT "PLEASE PLAY ME AGAIN I NEED T 


HE PRACTICE" 


7388 
730 
800 
a1 
820 
830 
840 
asa 
860 
870 
aaa 


8390 
988 
310 


FOR T=1 TO 160@:NEXT:GOTO 40 


2=0 

FOR I=i1 TO 13 

FOR J=i1 To 4 

IF 2=1 THEN 850 

IF BCI;J]<>BCN; OJ THEN €a50 

Jel slJeJ:2=1 

NEXT NEXT 

RE TURN 

PRINT@S;,"IT IS MY TURN TO SELECT" 


PRINT @22; " 
a 


2-0 ; 
FOR M=6 TO 1a STEP 4 
FOR L=6 TO 54 STEP 4 


236 
924 
9348 
948 
9548 
964 
9748 
98a 
99a 
1888 
1414 
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IF 2=1 THEN 968 

IF 2=2 THEN 1818 
M=2+44RND (4) 2L=Z444¥RNDO 13) :2=1 
IF 2=2 THEN 1818 
P=POINTCL;) 

IF P=-1 THEN 14148 

IF P=1 THEN 1818 

LL=L iMmM=n iK=P 

2=2 

NEXT 2 NEXT 


1820 IF 2=2 THEN 1858 


1838 


GOSUB 634 


1444 IF #=1 THEN 328 


14548 
1264 


L=LL + M=MM:RETURN 
PRINT@2," 


1474 PRINT@@; "USE FORWARD ARROW TO SELEC 


T CA 
198a 
1498 
1188 
1118 
1124 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1288 
12148 
1228 


RD" 

PRINT@38, "PRESS T TO TURN CARD" 
S0SUB 63a 

LL=38 2MM=30:K=1 

Ags" 

FOR M=6 TO 18 STEP 4 


FOR*L=6 TO 54 STEP 4 

IF AS="T" THEN 1268 
X=(L-2)74:V=(M-2) 44 

IF BCX,Y)=@8 THEN 1268 
P=POINT(L,M) 

IF P=-1 THEN 1268 

IF P=1 THEN 1268 
SET(L,M; 13 zSETCLL,;MM,K) 
LL=L sMM=nN:K=P 
AsS=INKEYS 


1232 
12428 
1258 
1268 
1270 
1288 
12308 
1328 
1318 
13208 
1330 
1342 
13508 
13608 
1378 
1380 
1330 
1488 
14108 
1420 
1430 
14408 
1458 
1468 
14708 
1488 
14308 
1588 
15128 
1528 
15328 
1548 
1558 
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IF Ag="T" THEN 1268 
1F AS=CHRS$(3) THEN 1260 
GOTO 1228 
NEXT :NEXT 
SOUND 200,1 
IF AS=CHRS$(3) THEN 1120 
L=Li, :N=nm 
RETURN 
FOR H=2 TO } 
BCX; YI=87ACK, TI=8 
PRINT@T, CHRS( 143) SCHRS(143)3 


PRINT @T#32, CHRS$C( 143) SCHRS( 143); 
T=39+24CN-11+644(0-) ) 

X=N T=0 

NEXT 

RETURN 

FOR H=@ TO 1 :Q=08 


IF Be4 THEN 1440 
PRINT@T, CHR$( 159) ;CHRS 0159) ; 
PRINT@T+3 2; CHRS$(C159) ;CHRSC 159) 5 
IF Be2 THEN 1460 


PRINT@T; CHRS$C191) SCHRSC191)3 
PRINT@T+3 2; CHR$(191) SCHRS( 191); 
TH#99+24(N-1)4+644(0-1) 

B=C 

NEXT 

RETURN 

IF G=@ THEN C=K 

B=K :H=0 

IF E=10 THEN 1540 


X=(L-2)74 7 =(M-2) 74 
FOR A=2 TO 32 STEP 32 
THO7+ 24X46 44C 1-1 4A 2T2=48t+A(X: TV) 


238 
1564 IF T2<S@ OR 
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TZ>57 THEN 


1648 


1578 PRINT@T,CHRS$(TZ) ;CHRS(T2) ; 


15a@ NEXT :T=1T-32 
1594 RETURN 

1684 IF T2=49 THEN 
(65)3 
1614 
(4805 
1628 
C7433 
1638 
Cali; 
1648 
(75) 5 
1658 
(6333 
1668 
1678 
1688 
1638 
1728 
1718 
1728 
1738 
1748 
1758 
1764 
1778 
17288 
1798 
1988 
1818 
1828 


IF T2=58 THEN 


IF T2=59 THEN 


IF T2=64 THEN 


IF T2=61 THEN 


IF T2=48 THEN 


GOTO 15aa 


FOR D=a@ 10 1 
FOR B=@ TO 6 


IF B=6 THEN 


RETURN 


PRINT@T, CHR SC(65) ;CHRS 
PRINT@T,CHRS(49) ;CHRS 
PRINT@T,CHRSC 74) SCHRS 
PRINT@T,CHRSC Al) SCHRS 
PRINT@T,CHRS( 75) jCHRS 


PRINT@T ,CHRS(63) ;CHRS 


REM BACK OF CARDS 


FOR A=@ TO 2 STEP 2 
SET (6+8xB+A,6+d*D,4) 
SET (6+8XB+A, Ata*D, 4) 
1768 
SETC10+8xB+A, 64840 ,2) 
SET( 10+8xB+A,a+axD, 2) 
SE TC 6+AxkB+A, 14+8xD, 2) 
SET (6+8 AB+A, 1248 XD, 2) 
IF B=6 THEN 19814 
SET(10+8xB+A, 10+8xD,4) 
SETC1B+akB+A, 1248 40,4) 
NE XT :NEXT ?NE XT 
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1832 CLS RND(8) 

1842 PRINT@132, TABC4)"] AM SHUFFLING TH 
— CARDS" 

1850 FOR x=] TO 13:FOR Y=] TO 4 
1862 *X=RND(13) :YY=RND(4) 

1870 IF ACxX,YY)>0 THEN 2020 
1880 ACKR, YY]=* 

1890 NEXT Y:NEXT 

1308 U=8:H=0 

1318 FOR SS=108 TO 200 STEP 128 
1922 SOUND SS, 1:NEXT 

1330 FOR SS=180 TO 100 STEP ~18 
1348 SOUND SS,1 :NEXT 

1350 PRINT@IS2, TABCSI“LEUEL OF PLAY C1- 
S)00"3 

13608 INPUT HF 

1972 €LS 1 

1982 FOR P#] TO 6:PLAY“T20QU3B04ABCDEFGP 
2" NEXT 

1932 RETURN 

2282 FOR G=1 TO 13:FOR H=! TO 4 
2018 IF ACG,HI<9@ THEN 2048 
2020 *X*G:YY=H 

2030 G=13:H=4 

2042 NEXT :NEXT 

2058 GOTO 1888 

2060 PCLS 5 

2070 PMODE @;1 

2080 SCREEN 1,1 

2038 COLOR 2,5 

2100 FOR RR=10 TO 150 STEP 5 
2110 CIRCLE (€128,363,RR 

2120 NEXT RR 
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2130 COLOR 5; 

2148 FOR RR=15@ TO 1@ STEP -5 
2150 CIRCLE €128,96),RR 

2160 NEXT RR 

2178 COLOR @,45 

2180 XX=8 -YT=0 

2190 WWe258:227=192 

2202 FOR TT=1 TO 20 

2212 LINE CAA, YTI-CWW, 22), PSET,B 
2220 XX=XXt5 VT YKV Vth 

2230 WWeHWWS :2z2=22-5 

2248 NEXT TT 

2258 XX=]00:7Y=190 

2260 WW=IS8:z2z7=92 

22708 FOR TT=20 TO 1 STEP ~1 

2280 LINE (XxX, YYJ-CWW; 2Z),PRESET;B 
2290 XX=XX-S :VVY=VY-3 

2300 WWEWNtS :22=22+5 

2310 NEXT TT 

23208 CLS RND(8) 

2330 FOR HH=] TO 5S 

2340 PRINT@160," " 

2358 PRINTB192 5 "XAKKAKKAKKAKK AK AKA KK AK AK 
KKKKKKKK" 

2360 FOR TT=1 TO 18 

2370 SS=]00tTTxS 

2380 SOUND SS, 1] 

2390 NEXT 

2408 PRINT@I92, *xxkxKKKK CONCENTRATION 
20 KKK 

2418 FOR TT=1 TO 128 

2420 SS=175tTTxS 

2438 SOUND SS;1 


2448 
2458 
2468 
2478 
24980 
2498 
25288 
2518 
2528 
25328 
2548 
2558 
2560 
25708 
2580 
2590 
2628 
26108 
2620 
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NEXT 2NEXT 

FOR OD=1 TO 300:NEXT :RETURN 
FOR CC=1 TO 8 

ccs cc 

SQUND 180+CCx5; 1 

NEXT CC 

FOR ct=8 TO 1 STEP -} 
cls ct 

SOUND 108+CCx5, 1} 

NEXT CC 

PCLS 5 

PMope 1,1 

SCREEN 1,31 

FOR PP=10 TO 250 STEP 128 
CIRCLE CPP, 96),50 

NEXT 

PAINT (8,03,7,8 

PAINT (8, 192),7,8 

RETURN 
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How to create moving graphics 


Several of the programs in this book, such as Escape and Maze 
Runner, use a very easy method of providing moving graphics 
on the text screen. Instead of using PRINT or PRINT@ 
to print messages om the screen, we have used 
the statement POKE to piace a character directly on to 
the screen. A section of the computer’s memory is set aside to 
control what appears on the screen. By POKEing values 
directly into these locations we can place characters directly on 
to the screen and move them around much faster than using 
any of the BASIC commands. 

Thetext screen is divided up into 16 rows down the screen, 
the Y axis; each of these rows is made up of 32 spaces across 
the screen, the X axis, a total of 512 locations. The memory 
locations which control these screen spaces are numbered 
from 1024 in the top left-hand corner down to 1536 in the 
bottom right-hand corner. The numbers run across the 
screen. 

To produce moving graphics we simply POKE a value into 
one of these memory locations, let it stay there long enough to 
be seen, then rub it out and POKE it into a new jocation 
nearby. If we do this over and over again, the object on the 
screen appears to move. To control this movement we need 
several things: a method of keeping track of the character’s 
location, a method of making it move (that is, changing its 
location), and a method of controlling the direction in whichit 
is moving. 

To keep track of a character's position on the screen we use 
a simple formula: POKE 1024 + X + Y x 32. 1024 is the first 
jocation on the screen. This gives a constant point of reference 
to work from. Variable X represents the number of spaces our 
character is across the screen. Variable Y (the character’s 
distance down the screen) must be multipiied by 32 to give the 
correct number of screen iocations to add to X. 
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We now need a method of altering the values of X and Y¥ so 
that we can move our character about. 

Type in and RUN this program and, after you have seen it 
in action, we will discuss it line by line. 


18 REM BOUNCING BALL 

24 CLS 

30 X=16:Y=a 

48 XX=1:YY=1 

5A EX=x sEY=Y 

6A POKE 1824+xX%+Y*32,79 
7B X=X+XX 

aa Y=Y+YyY 

98 IF X<1 THEN XX=-xx 
18Q IF X>3@ THEN XX=-xx 
114 IF Y<1 THEN YY=-YY 
12@ IF Y?14 THEN YY=-YY 
13@ POKE 1424+EX +EY*32,96 
144 GOTO 5A 


Line 10 is a REM statement, so that if youcome across this 
program again in a few months’ time you will know what it is 
supposed to do. Line 2@ clears the screen so that we can see 
the following action. 

Line 3@ sets up the variables X and Y. These variables will 
remember the position of our bouncing ball. This line gives 
them the starting position of the ball, sixteen spaces across the 
screen and eight rows down. This puts the ball right in the 
centre of the screen for the start of the prograin.. 

In line 40, variables XX and YY are the amounts we are 
going to use when we increment X and Y. In this program we 
are going to move the ball one space at a time. 

Line 5@ creates the variables EX and EY (these stand for 
Erase X and Erase ¥). We will use them to blank out the ball 
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before we POKE it into a new location. Line 5@ is also the 
start of our loop. 

Line 6@ is the line which places the ball on to the screen. We 
POKE memory location 1024 plus the value of X plus the 
value of Y multiplied by 32. The number 79 which follows is 
the POKE value for the letter 0. 

Lines 70 and 80 increment the values of X and Y by the 
values of XX and YY. This moves the ball across one space on 
the X axis and down one space on the Y axis. 

Lines 9@ to 110 are very important. These lines check to see 
if the ballis about to hit the edges of the screen and, if it is, the 
value of XX or YY, as the case may be, is then converted to a 
negative. The next time through our loop this value will be 
added to the variable X or Y and, because adding a negative 
subtracts it, will change the direction of the ball. This will 
make it appear to bounce off the edge of the screen. If XX or 
YY already hold a negative value when this occurs, these lines 
will convert them back to positive (a double negative creates a 
positive). 

Line 130 uses EX and EY {the location of the ball on the 
screen, X and Y have since been incremented by lines 70 and 
80) to blank out the ball. Value 96 is the POKE code for a 
blank space. When using POKE the value 32 produces a 
reverse space. 

Line 140 sends the program back to line 50 where EX and 
EY are given the current values of X and Y, and we go 
throughthe whole process again. 

The speed of the ball can be controlled by placing a delay 
loop at line 65. 

As you may have gathered by now, the character set avail- 
able when using POKE is different from the character set we 
get with CHR$. From value 128, the start of the graphic set, 
onwards, they are the same, but the alphabet, the numerals 
and mathematical symbols are different. 

The following short program will display the character set 
on thescreen for you. 
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1@ REM POKE CHARACTER DISPLAY 
24 CLS 

3@ FOR xX=1 TO 255 

4@ POKE 1823+x,x 

S@ NEXT x 

6@ GOTO 6a 


A final word of warning: when using POKE to move things 
around the screen, make sure you put in safeguards so that the 
X and Y values don’t get outside of the range 1024 to 1536. 
These memory locations are the $12 which control the screen. 
If the ball goes off the top of the screen — that is, into memory 
locations lower than 1024 —- or out the bottom of the screen — 
locations past 1536 — you are then POKEing a value into 
memory locations which control other functions. All sorts of 
disasters can befall you if this happens. I have had the 
keyboard freeze up, resulting in the computer having to be 
switched off before control could be regained. This, of course, 
caused the loss of the program was working on. I have also 
had a program scrambled into garbage by a ‘lost ball’. 

Study the bouncing ball program carefully and use this 
basic principle to produce your own programs. 


Games to convert 


You may well find that, while you may have little trouble 
writing a game for your computer once the idea for it has been 
presented, getting the idea itself may not be so simple. In this 
section of the book, I'll be looking at a number of game ideas 
which seem ideal for conversion. 

Many times I’ve discovered, when trying to convert a 
‘traditional’ (that is, non-computer} game to my computer, 
that the program which I finally end up with plays a game with 
little resemblance to the original idea. I don’t think that 
matters at all. So long as the game is fun to play, the route 
followed to that game is unimportant. 

You may also find that just reading through the games 
presented here will spark an idea far a program which is totally 
unrelated to the outline given. This section of the book has 
been designed to act as a series of ‘idea-starters’. Make your 
own choice on whether you intend to fallow the outlines, or 
simply use them as take-off points for your own creativity. 


Checker derivatives 


You have probably seen games which could be described as 
‘checker derivatives’; that is, games which are based on — but 
differ in at least one important particular from — checkers (or 
‘draughts’ as the game is generally known in the UK). It 
doesn’t take too much thought to realize that the eight-by- 
eight checkerboard and the normal checkermen and their 
moves can form the basis of a whole series of intelligent board 
gamnes. 

All you need to do is to postulate a ‘what if’, and then write 
your game from that point. Here are some examples which 
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should explain the ‘what if idea. You’re sure to be able to 
think of others. 


Use a board which is nine-by-nine, or seven-by-seven, with a 
corresponding change in the number of men. 


Remove multiple jumps. 


Allow men to move in all directions, as though you had a 
board of kings. 


Change the shape of the board, to become hexagonal, rec- 
tangular or five-sided. 


Add one or two special pieces, such as one which can move 
like the queen in chess. 


Introduce a new method of capture, such as ‘squeezing’ a 
piece between two of the opponent’s pieces. 


Change the object of the game, so that the player who first 
makes three kings wins, or the first player to get rid of all of 
his or her pieces is the victor. 


Make the game three-handed, and allow the computer to play 
two of the hands, with the human as the third player. 


And so on. I am sure there are many other ideas you can think 
of which fit under the umbrella of ‘checker derivatives’. 


Mancala 


One of man’s oldest known games has a number of names, 
including ‘Mancala’, ‘Owari’, ‘Awari’ and ‘Kalah’. Mancala 
boards have been discovered in 3000-year-old Egyptian 
temples. It is still widely played in Africa and Asia, often 
under slightly different rules. 

The basis of the game is for both players to have a number 
of ‘cups’ (or depressions in the ground) in a row in front of 
them. There is a larger, ‘home cup’ at each end of the rows. 
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The playing field looks like this, with the home cups desig- 
nated by the letter H: 


Com puter’s side 
000000 
Human’s home> H H <Computer’s home 
000000 
Human’s side 


At the start of the game, each cup contains a number of seeds 
(generally four or six), with the home cups empty. The players 
take it in turn to move. All of the stones in one cup are picked 
up, and the player then moves ina clockwise (or anti-clockwise, 
in some versions of the game) direction, dropping a single seed 
into each cup (except the home cups) as it ispassed over. 

If the final seed lands in an empty cup on the player’s side, 
then all the seeds in the facing, opponent’s cup are transferred 
into the player’s home cup. The game continues until one of 
the players cannot move, which will happen when there are no 
seeds on his or her side. The winner is the player with the 
most seeds in the home cup. 

Other variations of the game allow for a seed to be dropped 
in the player’s home cup, but not the opponent’s one, on each 
move. If the final seed lands in a player’s home cup, the player 
has a second move. 

This seems a simple game, and it is relatively easy to 
program. In fact, in an article on the game in Creative Compur- 
ing magazine (May 1980) David Levy points out that ‘the 
game presents an ideal programming exercise because the 
tules are simple ... and it is relatively easy to devise a 
satisfactory evaluation function’. 

Despite the simplicity of play, Sid Sackson claims in his 
book A Gamut of Games (Pantheon Books, New York, 1982) 
that although the game is ‘at first glance deceptively simple 

.. With repeated play the many subtleties of the strategy 
begin to emerge’. L. D. and P. H. Stander, in an article in 
Microcomputing (November 1979) agree, claiming that ‘com- 
petently played, Mancala can be as challenging as chess’. 
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Card games 


I won't even attempt to list card games in this section, as 
you’re sure to know several of them, and books of card game 
tules are easy to acquire. Most card games can become com- 
puter games by (a) simplifying the rules; (b) reducing the 
number of cards; and/or (c) replacing the cards with a set of 
dice. 

Poker, for example, can be viewed as the basis for many 
games in which particular combinations of cards (or numbers, 
if you're using dice) have higher values than others. The rules 
by which you exchange unwanted cards or numbers for new 
ones can determine the nature of the game. No exchange, and 
you have a simple game of chance. Limited exchange, and 
chance stil] plays a part, although skill is required to know 
which cards to discard. Unlimited exchange, and the skill 
factor becomes far more important. 


Out anthe field 


You may wish to try and write a game which simulates an 
outdoor sport, suchas football, tennis or baseball. 

The simulation can be based on similar games played with 
cards or dice, or you can follow a completely different route, 
and use the graphics potential of your computer, to produce a 
game whichis played in real-time. 


Proprietary board games 


Although you cannot develop such programs for commercial 
sale (as they may infringe the copyright on the original 
version), proprietary games are a rich source of program ideas. 

Obvious targets such as Monopoly (Parker Brothers) and 
Diplomacy (Avalon Hill} suggest themselves, but there are 
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many others which deserve consideration. These include Clue 
{Parker Brothers), in which a murder must be solved; Oregon 
Trail (Fantasy Games Unlimited), in which you attempt to 
cross the western United States while coping with Indians and 
a far from hospitable envirenment; and Kensington (Samuel 
Ward) in which players move interlocking shapes in an 
attempt to relocate opponents’ pieces by surrounding a 
triangle or square, and in which surroundinga hexagon wins. 

Have a lock through any large toy cr games shop and you'll 
discover many worthwhile ideas. 


Dice games 


A book which concentrates on these is the obvious place to get 
detailed breakdowns of the game and suggested strategy, but 
T’ll mention a few here which may prove interesting and of 
value: 

Craps. Two dice are rolled. If the total is 7 or 11, the player 
wins immediately. If the total is 2, 3 or 12 (‘craps’) the player 
loses, and the dice are handed to the other player for his or her 
move. Any other total is called the ‘point. The player 
attempts to roll his or her point again, before rolling a 7. Ifa7 
is rolled first, the player lases. 

Pig. A single die is used. Players try te get a total of 1 
points. Players can end their turn at any time, and hand the 
die to the cppenent. A player’s total reverts to zero if a 1 is 
rolled. 

Chuck-a-Luck. Three dice are used in this game based on 
Crown and Ancher. The player (or players) chooses a number 
from | to 6, and places a bet on this number. The three dice 
are threwn and each one which comes up with the player’s 
number pays back the value of the bet. Therefore, if just one 
of the three dice lands showing the chesen number, the player 
gets his or her money back. Two dice showing the number, 
and twice the value of the bet is returned, and se on, 
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If you enjoy games like TSR Hobbies’ Dungeons and Dragons 
{the game and name are registered trademarks of TSR) then 
yourre sure to be interested in games which explore the same 
fantasy worlds. There are many commercial programs which 
cover this field. Examining these will give you some clues on 
how to proceed in writing your own. 

A particularly useful book to assist you in this is Writing 
BASIC Adventure Programs for the TRS-80 by Frank Dacosta 
(TAB Books Inc., 1982). Despite being written specifically for 
the TRS-80, you'll find a great deal of value in it, no matter 
which computer you use. 


OTHER SOURCES OF IDEAS 


There are many games books which can give you ideas for 
programs. Among those I’ve found most suitable for this task 


are: 
The Complete Book of Indoor Games edited by Peter Arnold 
{Rigby Publishers Ltd, 1982) 

A Player's Guide to Table Games by John Jackson (Stackpole 
Books, 1975) 

A GamutofGames by Sid Sackson{Pantheon Books, 1982) 
Games for Two by John Wasley (Proteus Publishing Co. Inc., 
1981) 

Dice Games Newand Old by William E. Tredd {The Oleander 
Press, 1981) 

Discovering Old Board Games by R.C. Bell (Shire Publications 
Ltd, 1980) 

Discovering Dice and Dominoes by RC. Bell (Shire 
Publications Ltd, 1980) 

Dicing with Dragons, An Introduction to Role-P laying Games by 
Tan Livingstone (Routledge and Kegan Paul, 1982) 
Everyman’s Indoor Games by Gyles Brandreth and J.M. Dent 
Sons Ltd, 1982) 


Error trapping 


You'll find that it is worth spending time with your programs, 
once you get them up and running, to make them as ‘robust’ 
as possible. That is, you should try to make them as error- 
proof as you can, so that entering the wrong kind of input 
(such as hitting a letter key when a number is expected) does 
not cause the program to crash. 

The name ‘error trapping’ is given to any lines which are 
contained within a program which will catch input errors 
before they cause the program to crash. 

A program which is left running in an unattended computer 
must be robust. If the program is expecting a numeric input, 
and a user keys in words, the program should be able to cope 
and respond. It can do this either simply by ignoring the 
input, or by giving an error warning, and a fresh chance to 
give the correct input. The program should certainly not 
crash. 

The following short program — which was written to de- 
monstrate error trapping — is a simple one to generate 
mathematics problems. Although the program would prob- 
ably be most suitable for children aged between six and nine, 
it can easily be adapted for other groups. 


16 SC=0 

26 CLS 

36 PRINT@ 66, “TYPE IN YOUR NAME" 
48 INPUT AS 

S@ IF As="" THEN GOTO 42 

6@ IF LENCA$]>11 THEN GOTO 48 

7@ FOR S=] TO 16 
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98 A=RNDC 1G) *A=RNDC1Q) 

1848 IF B=A THEN GOTO 98 

114 PRINT@ 38, “NOW THEN "3AS:PRINT " C 
HOOSE WHICH TYPE OF SUMN"+PRINT " YOU WO 
ULD LIKE" 

124 PRINT@ 194: "1 - ADDITION" 

13@ PRINT® 226, "2 - SUBTRACT ION” 

14@ PRINT@ 258, "3 - MULTIPLICATION” 

15@ PRINT@ 294; “ENTER 1; 2 OR 3" 

168 We=INKEYS 

174 IF We="" THEN GOTO 168 

184 IF WeO>"1" AND WEO"Z" AND WEO>"3" T 
HEN GOTO 168 

19@ W=VALCWS) 

2088 IF W=1 THEN AN=AtK #B$="PLUS" 

218 IF W=2 THEN AN=A-B ‘BS="MINUS” 

220 IF W=3 THEN AN=A¥B #BS="TIMES” 

238 CLS 

248 PRINT@ 132, “RIGHT THEN, "SAS 

258 PRINT@ 196, “WHAT IS";A;BS;B; 

268 INPUT Y# 

270 IF Y¢="" THEN GOTO 268 

28@ CLS 

2958 X=VALCTS) 

30@@ IF X=AN THEN PRINT@ 268, "WELL DONE 


"GAS :SCHSC+1 
31 IF K<>AN THEN PRINT@ 258, "SORRY; "; 
AS;" YOU ARE WRONG" :PRINT " THE ANSWE 
R WAS" GAN 


328 PRINT:PRINT " PRESS ANY KEY FOR ANOT 
HER TURN" 
338 WS=[NKEYS 
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344 iF WS="" THEN GOTO 334 

35@ FOR OO-1 TO S@@:NEXT OO 

36@ CLS 

374 NEXT S 

384 CLS 

394 PRINT@ 192, “YOU SCOREON";SsC;"OUT OF 
TEN” 

404 PRINT:PRINT "PRESS ANY KEY TQ PLAY A 
GAIN" 

9414 WS=INKEYS 

9420 IF WS="" THEN GOTO 414 

434 FOR ON=] TO S@@:NEXT OD 

444 RUN 


Let’s have a look at the program, line by line: 


30 This line requires an input fora name. 

5@ This checks to make certain that something is keyed in, 
so that just pressing ENTER is not allowed. 

6@ In this line the length of the entered name is checked. 
This can be important if the name is to be displayed on the 
screen. If it is too long, it can lead to an ugly display later on, 
with broken lines and the like. It is also important to check the 
length of the name if it is to be later used in an array. If the 
name is too long, it may simply be chopped off. 

90 This generates two random numbers in the range zero to 
ten. These values can easily be changed if required. 

100 This line checks that the second number is different from 
the first. 

160-180 Only the numbers 1, 2 and 3 are allowed here. 
These are entered as strings rather than as numbers. It is 
much easier to error-trap strings than it is to check on 
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numbers. Once the string input has passed the error traps, it 
can be changed into a number using VAL. 

200, 210, 220 The required sum is generated here, along 
with its corresponding description. 

260 The answer is accepted here, again as a string. 

270 This disallows the ‘empty string’ (that is, it rejects just 
pressing ENTER). 


Line 170 forces the computer to wait until a key has been 
pressed. As you know, you do not need to use ENTER when 
INKEY$isemployed for accepting input. 

Line 180 makes sure that no other option — other than one 
of the three given options - can be accepted. 
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Accumulator part of the computer’s logic unit which stores 
the intermediate results of computations. 

Address a number which refers to a location, generally in 
the computer’s memory, where information is stored. 

Algorithm the sequence of steps used to solve a problem. 

Alphanumeric generally used to describe a keyboard, and 
signifying that the keyboard has alphabetical and numeri- 
cal keys. A numeric keypad, by contrast, only has keys for 
the digits one to nine, with some additional keys for 
arithmetic operations, much like a calculator. 

APL this stands for Automatic Programming Language, a 
language developed by Iverson in the early 1960s, which 
supports a large set of operators and data structures. It uses 
a non-standard set of characters. 

Application software these are programs which are tailored 
for a specific task, such as word processing, or to handle 
mailing lists. 

ASCII stands for American Standard Code for Information 
Exchange. This is an almost universal code for letters, 
numbers and symbols, which has a number between 0 and 
255 assigned to each of these, such as 65 for the letter A. 

Assembler this is a program which converts another 
program written in an assembly language (which is a com- 
puter program in which a single instruction, such as ADD, 
converts into a single instruction for the computer) into the 
language the computer uses directly. 

BASIC stands for Beginner’s All-purpose Symbolic In- 
struction Code, the most common language used on 
microcomputers. It is easy to learn, with many of its 
statements being veryclose to English. 

Batch a group of transactions which are to be processed by a 
computer in one lot, without interruption by an operator. 
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Baud a measure of the speed of transfer of data. It generally 
stands for the number of bits (discrete units of information) 
per second. 

Benchmark a test which is used to measure some aspect of 
the performance of a computer, which can be compared to 
the result of running a similar test on a different computer. 

Binary a system of counting in which there are only two 
symbols, 0 and 1 (as opposed to the ordinary decimal 
system, in which there are ten symbols, 0, 1, 2, 3,4, 5, 6, 7, 
8 and 9). Your computer ‘thinks’ in binary. 

Boolean Algebra the algebra of decision-making and logic, 
developed by English mathematician George Boole, and at 
the heart of your computer’s ability to make decisions. 

Bootstrap a program, run into the computer when it is first 
turned on, which puts the computer into the state where it 
can accept and understand other programs. 

Buffer a storage mechanism which holds input from a device 
such as keyboard, then releases it at a rate which the com- 
puter dictates. 

Bug anerror ina program. 

Bus a group of electrical connections used to tink a computer 
with an ancillary device, or another computer. 

Byte the smallest group of bits which makes up a computer 
word. Generally a computer is described as being ‘eight bit’ 
or ‘sixteen bit’, meaning the word consists of a combination 
ofeight or sixteen zeros or ones. 

Central Processing Unit(CPU) the heart of the computer, 
where arithmetic, logic and control functions are carried 
out. 

Character code the number in ASCII (see ASCII) which 
refers to a particular symbol, such as 32 for a space and 65 
for the letter A. 

COBOL stands for Common Business Orientated 
Language, a standard programming language, close to Eng- 
tish, which is used primarily for business. 

Compiler a program which translates a program written in a 
high-level (human-like) language into a machine language 
which the computer is able to understand directly. 
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Concatenate to add (adding two strings together is known 
as ‘concatenation’). 

CP/M these initials stand for Control Program/Micro- 
computer, an almost universal disk operating system de- 
veloped and marketed by Digital Research, Pacific Grove, 
California. 

Data a general term for information processed by a com- 
puter, 

Database a collection of data, organized to permit rapid 
access by computer. 

Debug to remove bugs (errors) from a program. 

Disk a magnetic storage medium (further described as a 
‘hard disk’, ‘floppy disk’ or even ‘floppy’) used to store 
computer information and programs. The disks resemble, 
toa limited extent, 45 rpm sound records, and are generally 
eight, five and a quarter, or three and a half inches in 
diameter. Smaller ‘microdisks’ are also available for some 
systems, 

Documentation the written instructions and explanations 
which accompany a program, 

DOS | stands for Disk Operating System (and generally pro- 
nounced ‘doss’), the versatile program which allows a com- 
puter to control a disk system. 

Dot-matrix printer a printer which forms the letters and 
symbols by a collection of dots, usually on an eight-by-eight, 
or seven-by-five, grid. 

Double-density adjective used to describe disks when re- 
corded using a special technique which, as the name 
suggests, doubles the amount of storage the disk can pro- 
vide. 

Dynamic memory computer memory which requires con- 
stant recharging to retain its contents. 

EPROM stands for Erasable Programmable Read Only 
Memory, a device which contains computer information in 
a semi-permanent form, demanding sustained exposure to 
ultra-violet light to erase its contents. 

Error messages information from the computer to the user, 
sometimes consisting only of numbers or a few letters, but 
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generally of a phrase (such as ‘Out of memory’) which 
points out a programming or operational error which has 
caused the computer to halt program execution. 

Field a collection of characters which form a distinct group, 
such as an identifying code, a name or a date; a field is 
generally part of a record. 

File a group of related records which are processed together, 
such as an inventory file or a student file. 

Firmware the solid components of a computer system are 
often called the ‘hardware’, the programs, in machine-read- 
able form on disk or cassette, are called the ‘software’, and 
programs which are hardwired into a circuit are called 
‘firmware’. Firmware can be altered, to a limited extent, by 
software in some circumstances. 

Flag this is an indicator within a program, with the ‘state of 
the flag’ (i.e. the value it holds) giving information regard- 
ing a particular condition. 

Floppy disk see disk. 

Flowchart this is a written layout of program structure and 
flow, using various shapes, such as a rectangle with sloping 
sides for a computer action, and a diamond for a computer 
decision. A flowchart is generally written before any lines of 
program are entered into the computer. 

FORTRAN a high-level computer language, generally used 
for scientific work (from FORmula TRANslation). 

Gate a computer ‘component’ which makes decisions, 
allowing the circuit to flow in one direction or another, 
depending on the conditions to be satisfied. 

GIGO acronym for ‘Garbage In Garbage Out’, suggesting 
that if rubbish or wrong data is fed into a computer, the 
result of its processing of such data (the output) must also 
be rubbish. 

Global a set of conditions which affects the entire program is 
called ‘global’, as opposed to ‘local’. 

Graphics a term for any output of the computer which is not 
alphanumeric, or symbolic. 

Hardcopy information dumped to paper by a printer. 
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Hardware the solid parts of the computer (see ‘software’ and 
‘firmware’). 

Hexadecimal a counting system often used by machine code 
programmers because it is closely related to the number 
storage methods used by computers, based on the number 
16 as opposed to our ‘ordinary’ number system which is 
based on 10. 

Hex pad a keyboard, somewhat like a calculator, which is 
used for direct entry of hexadecimal numbers. 

High-level languages programming languages which are 
close to English. Low-level languages are closer to those 
which the computer understands. Because high-level 
languages have to be compiled into a form which the com- 
puter can understand before they are processed, high-level 
languages run more slowly than do their low-level 
counterparts. 

Input any information which is fied into a program during 
execution. 

VO stands for Input/Output port, a device the computer 
uses to communicate with the outside world. 

Instruction an element of programming code, which tells 
the computer to carry out a specific task. An instruction in 
assembly language, for example, is ADD which (as you’ve 
probably guessed) tells the computer to carry out an 
addition. 

Interpreter converts the high-level (‘chuman-understand- 
able’) program into a form which the computer can under- 
stand, 

Joystick an analogue device which feeds a signal into a com- 
puter which is related to the position which the joystick is 
occup ying; generally used in games programs. 

Kilobyte the unit of language measurement. 

Line printer a printer which prints a complete line of 
characters at one time. 

Low-level language a language which is close to that used 
within the computer (see high-level language). 

Machine language the step below a low-level language; the 
language which the computer understands directly. 
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Memory the device or devices used by a computer to hold 
information and programs being currently processed, and 
for the instruction set fixed within a computer which tells it 
how to carry out the demands of the program. There are 
basically twotypes of memory (see RAM and ROM). 

Microprocessor the ‘chip’ which lies at the heart of your 
computer. This does the ‘thinking’. 

Modem stands for MOdulator/DEModulator, and is a de- 
vice which allows one computer to communicate with 
another via the telephone. 

Monitor (a) a dedicated television-screen for use as a com- 
puter display unit, contains no tuning apparatus; (b) the 
information within a computer which enables it to under- 
stand and execute program instructions. 

Motherboard a unit, generally external, which has slots to 
allow additional ‘boards’ (circuits) to be plugged into the 
computer to provide facilities (such as high resolution 
graphics, or ‘robot control’) which are not provided with 
the standard machine. 

Mouse a control unit, slightly smaller than a box of 
cigarettes, which is rolled over the desk, moving an on- 
screen cursor in parallel to select options and make de- 
cisions within a program. ‘Mouses’ work either by sensing 
the action of their wheels, or by reading a grid pattern on 
the surface upon which they are moved. 

Network a group of computers working in tandem. 

Numeric pad a device primarily for entering numeric in- 
formation into a computer, similar to a calculator. 

Octal a numbering system based on eight (using the digits 0, 
1, 2, 3, 4, 5, 6and 7). 

On-line device which is under the direct control of the com- 
puter. 

Operating system this is the ‘big boss’ program or series of 
programs within the computer which controls the com- 
puter’s operation, doing such things as calling up routines 
when they are needed and assigning priorities, 
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Output any data produced by the computer while it is pro- 
cessing, whether this data is displayed on the screen or 
dumped to the printer, or is used internally. 

Pascal a high-level language, developed in the late 1960s by 
Niklaus Wirth, which encourages disciplined, structured 
progamming. 

Port an output or input ‘hole’ in the computer, through 
which data is transferred. 

Program the series of instructions which the computer 
follows to carry out a predetermined task. 

PILOT a high-level language, generally used to develop 
computer programs for education. 

RAM stands for Random Access Memory, and is the 
memory on board the computer which holds the current 
program. The contents of RAM can be changed, while the 
contents of ROM (Read Only Memory) cannot be changed 
under software control. 

Real-time when a computer event is progressing in line with 
time in the ‘real world’, the event is said to be occurring in 
real-time. An example would be a program which showed 
the development of a colony of bacteria which developed at 
the same rate that such a real colony would develop. Many 
games, which require reactions in real-time, have been de- 
veloped. Most ‘arcade action’ programs occur in real-time. 

Refresh the contents of dynamic memories (see memory) 
must receive periodic bursts of power in order for them to 
maintain their contents. The signal which ‘reminds’ the 
memory of its contents is called the refresh signal. 

Register a location in computer memory which holds data. 

Reset a signal which returus the computer to the point it was 
in when first turned on. 

ROM see RAM. 

RS-232 a standard serial interface (defined by the Electronic 
Industries Association) which connects a modem and 
associated terminal equipment to a computer. 

S-100 bus this is also a standard interface (see RS-232) made 
up of 100 parallel common communication lines which are 
used to connect circuit boards within microcomputers. 
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SNOBOL a high-level language, developed by Bell 
Laboratories, which uses pattern recognition and string 
manipulation. 

Software the program which the computer follows (see 
firmware). 

Stack the end point of a series of events which are accessed 
on a last in, first out basis. 

Subroutine a block of code, or program, which is called up a 
number of times within another program. 

Syntax as in human languages, the syntax is the structure 
rules which govern the use of a computer language. 

Systems software sections of code which carry out 
administrative tasks, or assist with the writing of other 
programs, but which are not actually used to carry out the 
computer’s final task. 

Thermal printer a device which prints the output from the 
computer on heat-sensitive paper. 

Time-sharing this term is used to refer to a large number of 
users, on independent terminals, making use of a single 
computer, which divides its time between the users in such 
a way that each of them appears to have the ‘full attention’ 
of the computer. 

Turnkey system a computer system (generally for business 
use) which is ready to run when delivered, needing only the 
‘turn ofa key’ to get it working. 

Volatile memory a memory device which loses its contents 
when the power supply is cut off. 


Turn your Dragon 32 into an all-singing, all-dancing 
games machine! This giant collection of games 
programs will show you just how effective and 
exciting a computer your Dragon canbe. 
Outstanding programs include: 

CRAZY HIGHWAY: a game full of tension as you try to get 
a poor little cat across a busy highway 

PRO GOLF: inthis stunning arcade-standard program 
you see the hole in high-resolution graphics 
METEOR: control your laser base on the ground to 
destroy the hired spaceship hovering above you 
CAVERN OF THE SHADOW THIEVES: adventure gaming 
comes to your Dragon as you stumble through the 
labyrinth 

AVALANCHE: as mayor of an Alpine village, the lives of 
the people are in your hands 

Plus you'll learn how to create moving graphics on 
your Dragon and how totrap player input errors. The 
appendix includes a series of games ideas for you to 
turninto programs, and there's a handy glossary of 
computer words. 
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